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WILLYOU WALK 
INTO MY PARLOUR? 


■ 

THE PLOT 

■ 

WRITING THE GAME 

■ 

SETTING UP THE GRAPHICS 

■ 

FREDDY, ARROWS, BALLOONS 

AND THE SPIDER 



Release the starving Martian spider 
onto frantic Freddy when you follow 
through how an arcade-type game is 
written. In the next part you’ll have 
the complete game 


Freddy and the Spider from Mars (or the 
Window Cleaner’s Nightmare) is a complete 
arcade-type game, building up over the next 
two parts of Games Programming. 

In this first part, the graphics are set up 
and the program is initialized. In part two the 
working game will be produced by knitting 
the routines together. 


The starting point for designing any game is 
an idea— some kind of plot or storyline, or 
maybe a character around which to build the 
game. 

In this game Freddy is a window cleaner 
with an intense dread of spiders. He’s been to 
his doctor and to innumerable specialists who 
cannot cure his condition. Things are so bad 
he now has a recurring nightmare, concerning 
a Martian spider (a particularly huge, hungry, 
nasty-looking variety of Freddy’s favourite 
phobia), a collection of balloons, and his 
favourite hobby, archery. 

Frequently he wakes up bathed in sweat 
after dreaming of being stranded on his ladder 
equipped, not with his usual bucket of dirty 
water and a wash leather, but with a supply of 
arrows. He has been trying desperately to 
burst balloons which, if allowed to reach the 
spider’s cage above his head, unlock the doors 




Help Freddy burst the balloons, or he’ll 
come to a gruesome end as the spider’s 
breakfast! 

So much for the plot. As for the scoring, 
points are awarded for each balloon Freddy 
bursts. But bursting the lot doesn’t bring 
relief— Freddy’s torture continues at a higher 
level, with faster moving balloons. If he lets 
through three balloons, the Martian spider is 
released. 


WRITING THE GAME 


There are four objects that move about on the 
screen— the spider, which can move both 
horizontally and vertically; Freddy, who 
moves only vertically; the balloon currently 
on the screen, which also moves only verti- 
cally; and finally the arrow. This normally 
moves horizontally, but when Freddy ascends 
or descends the ladder and is holding the 
arrow it will have to move vertically with him. 


THE GAME 












The main objects of interest, though, are the 
spider and the balloon. These have many 
variables associated with them. A technique 
that proves useful here is to store all the 
variables in a one-dimensional array, and use 
a constant to reference a particular 
component. 

The next stage is to think of how you are 
going to display the shapes on the screen. 
This involves considering all the different 


pictures that will be displayed during the 
course of the game. All the best computer 
games feature large, colourful shapes, so this 
is a very important stage in developing the 
program. In order to provide enough detail, 
Freddy will be constructed out of a three by 
two arrangement of UDG characters. Two by 
two pictures will be used to display the spider 
(there will be two of these, to make the 
animation more impressive), the balloon 
shape and a picture of a popped balloon. If 
you include two characters to display the 
arrow, and two more for the ladder, you 
end up having allocated 26 characters. 


Part one sees the graphics set up and the game 
initialized. 


GRAPHICS INITIALIZATION 


1000 DIM b(6): DIM s(7) 

1 01 0 LET xpos = 1 : LET ypos = 2: LET 
colour = 3: LET points = 4: LET count = 5: 
LET maxcount = 6 

1020 LET xinc = 3: LET yinc = 4: LET 
picture = 7 

1030 LET dest= 65288 
1040 FOR i = 0 TO 26-8-1: READ j: POKE 
dest + i,j: NEXT i 

1050 DATA 15,63,127,255,255,255,255,127 
1060 DATA 240,252,254,255,255,255,255,254 
1070 DATA 127,63,63,31,15,7,3,6 
1080 DATA 254,252,252,248,240,224,192,96 
1090 DATA 32,96,255,255,96,32,0,0 
1100 DATA 5, 10, 252, 252, 10, 5, 0,0 
1110 DATA 1,64,17,40,16,0,0,161 
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1 31 0 LET hiscore = 0 
1320 RETURN 


1000 DIM B(6),S(7),NU$(9) 

1010 XP = 1:YP = 2:PO = 4:CT = 5: MC = 6 
1020 XI = 3:YI = 4:PI = 7 

1022 DIM AD(14),EF(4),E(4),GJ(7),KL(4), 
MP(7),QT(7),UZ(14),SP(7),S1(4),S2(7), 
BL(4) 

1023 PM0DE4,1:PCLS1:SG = PEEK(188)'256 

1024 GOSUB 1500 

1025 GET(0,0) — (15,23),AD,G:PCLS1 

1026 GOSUB 1520 

1027 GET(0,0) — (15,7),EF,G: 

GET(0,0) — (7,7),E,G:PCLS1 

1028 GOSUB 1500 

1029 GET(0,0) — (15,15),GJ,G:PCLS1 

1030 GOSUB 1520 

1031 GET(0,0) — (15,7),KL,G:PCLS1 

1032 GOSUB 1500 

1033 GET(0,0) — (15,15), MP,G:PCLS1 

1034 GOSUB 1500 

1035 GET(0,0) — (1 5,1 5),QT,G:PCLS1 


1120 DATA 128,2,136,20,8,0,0,133 
1130 DATA 161 ,0,0, 16, 40, 17, 64,1 
1140 DATA 133, 0,0, 8, 20, 136, 2, 128 
1 1 50 DATA 48,48,48,48,1 11,111 ,48,48 
1160 DATA 12,12,12,12,246,246,12,12 
1170 DATA 7,31,49,57,127,112,237,255 
1180 DATA 224,248,140,204,254,14,183, 
255 

1190 DATA 127,59,51,99,115,35,6,12 
1200 DATA 254,108,102,51,49,25,24,48 
1210 DATA 7,31,49,51,127,112,235,255 
1220 DATA 224,248,140,156,254,14, 
215,255 

1230 DATA 127,51,50,27,25,50,112,224 
1240 DATA 254,204,108,102,54,22,3,6 
1250 DATA 15,31,19,55,55,63,63,15 
1260 DATA 240,248,248,252,252,252, 
252,240 

1270 DATA 251,219,139,219,219,251, 
247,239 

1280 DATA 252,254,254,254,254,254, 
254,252 

1290 DATA 95,127,31,31,31,63,127.127 
1300 DAT^ 188,188,188,188,188,124, 


1037 GET(0,0) — (15,23),UZ,G:PCLS1 

1038 GET(0,0) — (15,15), SP,G 

1039 GET(0,0) — (7,7),S1,G 

1040 GET{0,0) — (1 5,7),S2,G 

1041 PCLS0:GET(0,0) — (7,7),BL,G 
1050 DATA 15,63,127,255,255,255,255, 

127 

1060 DATA 240,252,254,255,255,255, 

255.254 

1070 DATA 127,63,63,31,15,7,3,6 
1080 DATA 254,252,252,248,240,224, 
192,96 

1090 DATA 32,96,255,255,96,32,0,0 
1100 DATA 5, 10, 252, 252, 10, 5, 0,0 
11 10 DATA 1,64, 17, 40, 16, 0,0, 161 
1120 DATA 128,2,136,20,8,0,0,133 
1130 DATA 161 ,0,0, 16, 40, 17, 64,1 
1140 DATA 133,0,0,8,20,136,2,128 
1 1 50 DATA 48,48,48,48,1 11,111 ,48,48 
1160 DATA 12,12,12,12,246,246,12,12 
1170 DATA 7, 31 ,49, 57, 127, 11 2, 237, 

255 

1180 DATA 224,248,140,204,254,14, 

183.255 









3000 SC = 0:LV = 1 
3010 MY = 15 

3020 BL = 15 + 5*LV:AX = 29:AY = 16: 
DD = 0:PP = 3 


FREDDY AND THE ARROW 


1180 
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3000 LET score = 0: LET level = 1 
3010 LET my = 15 
3020 LET bl = 1 5 + 5'level: LET ax = 29: LET 
ay = 16: LET dead = 0: LET props = 3 


4000 INK 7: PRINT AT my,30;“uv”;AT my + 1, 
30;“wx”;AT my + 2,30;“yz”: IF ax = 29 
THEN PRINT AT ay,ax;“e”; 

4010 RETURN 

4110 INK 7: PRINT AT ay,ax;“ef”: RETURN 


4000 PUT(240,MY'8) - (255,MY'8 + 23), UZ, 
PSET:IF AX = 29 THEN PUT(AX*8,AY*8) - 


3090 GOSUB 5000 

3150 PM0DE4,1:C0L0R 0,1:PCLS:SCREEN1,1 
3160 FOR X = 0 TO 28:PUT(X*8,24) — 

(X‘8 + 7,31),BL,PSET:PUT(X*8,0) — 

(X*8 + 7,7),BL,PSET:NEXTX:GOSUB 6000 
3165 DRAW “S4;BM2,2;C1 ;D4R3BR2BU1 
R2BU1 L2;BM48,2;D4R4U2L4R3U2L3BR6 
BD2R2BD1 L2;BM1 00,2;L4D2R4D2L4BR6 
NR4U4R4;BM160,2;D4U2R4D2U4BR2R4L2 
D4L2R4;S2” 

3170 DRAW “C1;BM14,2;”:NU = LV:GOSUB 
1650:DRAW “BM58,2;”:NU = BL:GOSUB 
1650:DRAW “BM114,2;”:NU = SC:GOSUB 
1650:DRAW “BM178,2;”:NU = HS: 

GOSUB 1650 

31 90 FOR Y = 5 TO 21 :PUT(240,Y*8) - (255, 

Y*8 + 7),KL,PSET:NEXTY 
3210 GOSUB 4000 
3220 GOSUB 4200 
3240 RETURN 


Lines 3000, 3010 and 3020 set the score to 
zero and level to one, and initialize a series of 
variables. Line 3150 sets the screen colours, 
and Lines 3160 and 3170 display the score 
and other information. 

Something should be said about the POKEs 
in Lines 3170 and 3180 of the Spectrum 
program. Memory location 23607 stores a 
pointer to the character set. Usually this 
location has the value 60, which points to the 
normal ROM character set. In this program, 
though, the characters have been placed in an 
area which is referenced by POKEing 23607 
with 252 instead. Line 3180 POKEs 23607 
with 252 so the program can use the lower 
case letters as graphics, but still allows you use 
of numerals and upper case letters. 

The program reserves an area of memory, 
using CLEAR, and plants the UDGs there. 
The CLEAR has to be executed as part of the 
main program because of the way it affects 
the execution of the subroutines. This will be 
done in the second part of this game — if you 
want to run this part of the program before 
then, type CLEAR 65287 first. 

Line 3190 draws the ladder, and the two 
subroutine calls draw Freddy and the spider. 


1210 DATA 7,31,49,51,127,112,235,255 
1220 DATA 224,248,140,156,254,14, 

215,255 

1230 DATA 127,51,50,27,25,50, 

1240 DATA 254,204,108,102,54,22,3,6 
1250 DATA 15,31,19,55,55,63,63,15 
1260 DATA 240,248,248,252,252,252, 

252,240 

1270 DATA 251,219,139,219,219,251, 

247,239 

1280 DATA 252,254,254,254,254,254, 

254,252 

1290 DATA 95,127,31,31,31,63,127,127 
1300 DATA 188,188,188,188,188,124, 

252,248 
1310 HS = 0 
1320 RETURN 

1500 FOR CL = 0 TO 1 : FOR CH = 0TO 1: 
FOR L = 0 TO 7:READ J:POKE SG + CL 1 
256 + CH + L’32,255— J:NEXT L,CH,CL 
1510 RETURN 

1520 FOR CH = 0 TO 1:F0R L = 0 TO 7: 

READ J:POKE SG + CH + L*32,255 — J: 
NEXT L,CH 
1530 RETURN 

1600 DATA R6D8L6U8BR8,BR6ND8BR2,R6D4 
L6D4R6BR2BU8,R6D4NL3D4NL6BR2BU8, 
D4R6D4U8BR2,NR6D4R6D4L6BE8 
1610 DATA D8R6U4L6U4BR8,R6ND8BR2, 
R6D8L6U8D4R6U4BR2,D4R6D4U8L6BR8 
1620 FOR I = 0 TO 9:READ NU$(I):NEXT 
1625 DRAW “Cl ;S2” 

1630 RETURN 

1650 N$ = STR$(NU):FOR 12 = 2 TO LEN(N$) 
1660 Dl = ASC(MID$(N$,I2,1 )) — 48:DRAW 
NU$(DI) + “BR2”: NEXT 12: RETURN 
1700 COLOR0:LINE(1 78,2) — (200,7), PSET, 
BF:NU = HS:DRAW “Cl ;BM1 78,2”: 

GOSUB 1650:RETURN 


This section of program stores the DATA for 
the UDGs for the balloon and the spider in 
arrays B (or b) and S (or s) — the arrays are 
DIMensioned in Line 1000. 

Lines 1010 and 1020 define the initial 
values of the pointers to the arrays, before the 
UDGs are set up. Finally, Line 1310 sets the 
high score to zero. This line has been placed 
here as it has to be executed only once during 
the program. 

The Dragon/Tandy program has an extra 
routine starting at Line 1600 which DRAWs 
numbers on the high resolution screen. 


3090 GOSUB 5000 
3150 PAPER 0: BORDER 0: CLS 
31 60 FOR x = 0 TO 28: PRINT AT 3,x; INK 0; 
PAPER 6;“D”;AT 0,x;“D”: NEXT x: 
GOSUB 6000 

3170 POKE 23607,60: PRINT AT 0,0; INK 0; 
PAPER 6;“L = ”;level;“ □ □ B = ”;bl; 

“□ □”;“SC = ”;score;AT 0,20;“HI = 
hiscore 

3180 POKE 23607,252 
31 90 FOR y = 5 TO 21 : PRINT AT y,30; INK 
6;“kl”: NEXT y 
3200 POKE 23607,252 
3210 GOSUB 4000 
3220 GOSUB 4200 
3240 RETURN 


GAME INITIALIZATION 
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Freddy and the spider from Mars More detailed colour graphics in the 

shown in full flight on the Spectrum Commodore version of the game 


(AX # 8 + 7,AY # 8 + 7), E, PSET 
4010 RETURN 

41 1 0 PUT(AX*8,AY # 8) - (AX # 8 + 1 5,AY # 8 + 7), 
EF,PSET:RETURN 

This routine simply draws Freddy on the 
ladder, and the arrow. Freddy’s position is 
determined by the value of MY (or my). 
Similarly, Line 4110 will draw the arrow at 
any position on the screen, according to the 
values of AX and AY (or ay and ax). 


THE MARTIAN SPIDER 


4200 IF s(picture) = 1 THEN GOTO 4250 
4210 PRINT AT s(ypos),s(xpos);“mn”;AT 
s(ypos) + 1,$(xpos);“op”: RETURN 
4250 PRINT AT s(ypos),s(xpos);“qr”;AT 
s(ypos) + 1,s(xpos);“st”: RETURN 


E 


4200 X2 = S(XP)*8:V2 = S(YP)‘8:IF S(PI) = 1 
THEN 4250 

421 0 PUT(X2,Y2) - (X2 + 1 5,Y2 + 1 5), M P, 
PSET:RETURN 

4250 PUT (X2,Y2) — (X2 + 1 5,Y2 + 1 5),QT, 
PSET:RETURN 

This routine is very similar to the other 
printing routines, but it has to be slightly 
more subtle because there are two images to 
play with. Both images are printed at the same 
place on the screen, one after the other, so the 
spider’s legs appear to move. 


THE BALLOON GOES UP 



4300 PRINT AT b(ypos),b(xpos); BRIGHT 1; 
INK b(colour);“ab”;AT b(ypos) + 1,b(xpos); 
“cd”: RETURN 


5000 LET range = INT (RND*6) 

5010 LET b(xpos) = (4‘range) + INT (RND'4) 

5020 LET b(ypos) = 20 

5030 LET b(maxcount) = 5 — level 

5040 LET b(count) = 1 

5050 LET b(colour) = INT (RND*5) + 3 

5060 LET b(points) = 10- range 

5070 RETURN 


E 


4300 X2 = B(XP) # 8:Y2 = B(YP)‘8:PUT(X2, 

Y2) - (X2 + 1 5,Y2 + 23), AD, PSET: RETURN 
5000 RG = RND(6) — 1 
5010 B(XP) = (4*RG) + RND(4) — 1 
5020 B(YP) = 20 
5030 B(MC) = 5 — LV 
5040 B(CT) = 1 
5060 B(PO) = 10 — RG 
5070 RETURN 

Line 4300 simply draws the balloons on 
screen. 

The remaining lines inflate a new balloon 
once the previous one has been popped by an 
arrow, or by reaching the beast’s cage. Ball- 
oons may appear at any one of six places at the 
bottom of the screen, and then float vertically 
upwards. MAXCOUNT or (maxcount) deter- 
mines how often the balloon is moved and 
hence its apparent speed, and is related to the 
level the game has reached. The colour of the 
balloon is chosen in the Spectrum version, 
and finally the points value of the balloon is 
set according to how close it is to Freddy’s 
ladder. 


THE DOORS 



6000 IF level < > 1 THEN POKE 23607,60: 
PRINT AT s(ypos),s(xpos);“D D”;AT s(ypos) 


+ 1,s(xpos);“D POKE 23607,252 
6010 FOR x = 1 0 TO 30 STEP 9 
6020 PRINT INK 6;AT 1,x;“?”;AT 2,x;“?” 
6030 NEXT x 

6040 LET s(xpos) = 1 : LET s(ypos) = 1 : LET 
s(xinc) = 1 : LET s(yinc) = 0: LET 
s(count) = 4: LET s(maxcount) = 4: LET 
s(picture) = 1 
6050 RETURN 


E 


6000 IF LV< >1 THEN X2 = S(XP)*8:Y2 = S 
( YP) *8: PUT (X2,Y2) - (X2 + 1 5,Y2 + 1 5), 

SP PSET 

6010 FOR X = 10 TO 30 STEP 9 
6020 PUT(X*8,8) — (X*8 + 7,1 5), BL, PSET: PUT 
(X'8,1 6) — (X*8 + 7, 23), BL, PSET 
6030 NEXT X 

6040 S(XP) = 1 :S(YP) = 1 :S(XI) = 1 :S(YI) = 0: 

S(CT) = 4:S(MC) = 4:S(PI) = 1 
6050 RETURN 


Three doors are drawn in the Spider’s cage to 
keep it imprisoned. Spectrum owners note 
that the ? character is in fact a blob, obtained 
from the 8 key while in graphics mode. 



The Commodore program is different from 
the rest, so slightly different aspects of the 
program will be covered here. 


GRAPHICS INITIALIZATION 


10 POKE 51 ,255:POKE 52,47:POKE 55,255: 
POKE 56,47:CLR: PRINT" □PLEASE 
WAIT. . .” 

15G0SUB 1000 

999 G0T0999 

1000 POKE 56334, 0:POKE 1,5l':F0R 1 = 0 TO 
64*8 - 1 :P0KE 1 2288 + l,PEEK(53248 + 1): 
NEXT I 
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1010 POKE 1,55:POKE 56334,1 
1020 FOR Z = 13312 TO 13527: READ X: 

POKE Z,X:NEXT Z: RETURN 
1050 DATA1 5,63,1 27,255,255,255, 

255,127 

1 060 DATA240,252,254,255,255,255, 

255.254 

1070 DATA1 27,63,63,31 ,1 5, 7, 3, 6 
1 080 DATA254,252,252,248,240,224, 

192,96 

1090 DATA32,96,255,255,96,32,0,0 
1100 DATA5,1 0,252,252,1 0,5, 0,0 
1110 DATA1 ,64,1 7,40,1 6, 0,0,1 61 
1120 DATA1 28, 2, 136, 20, 8, 0,0, 133 
1130 DATA1 61 ,0,0, 16,40, 17, 64,1 
1140 DATA1 33, 0,0, 8, 20, 136, 2, 128 
1 1 50 DATA48, 48, 48,48,1 11,111 ,48,48 
1 1 60 DATA1 2,1 2,1 2,1 2,246,246,1 2,1 2 
1 1 70 DATA7,31 ,49,57,1 27,1 1 2,237,255 
1180 DATA224, 248,1 40,204,254,1 4, 

183.255 

1190 DATA1 27, 59, 51 ,99,1 15, 35, 6, 12 
1 200 DATA254,1 08,1 02,51 ,49,25,24,48 
1 21 0 DATA7,31 ,49,51 ,1 27,1 1 2,235,255 
1 220 DATA224, 248,1 40,1 56,254,1 4, 

215.255 

1 230 DATA1 27,51 ,50,27,25,50,1 1 2,224 
1 240 DATA254, 204,1 08,1 02,54,22,3,6 
1250 DATA5,31 ,1 9,55,55,63,63,1 5 
1260 DATA240,248,248,252,252,252 
252,240 

1270 DATA251 ,21 9,1 39,21 9,21 9,251 
247,239 

1280 DATA252,254,254,254,254,254 
254,252 

1 290 DATA95,1 27,31 ,31 ,31 ,63,1 27,1 27 
1 300 DATA1 88,1 88,1 88,1 88,1 88,1 24, 

252,248 

1310 DATA239, 239, 239, 0,247, 247, 

247,0 

This routine contains all the DATA needed for 
setting up the graphics. UDGs are set up for 
Freddy, the Spider, the ladder, and the 
platforms at the top and bottom of the screen 
by POKEing into memory, after Line 10 clears 
sufficient space for them. 


ERECTING THE SCREEN 


20 POKE 53272,28: GOSUB 2000 
2000 POKE 53280, 0:POKE 53281 ,0: PRINT 

□ kJUL=U0UUUB = fe|20U 
UUUUSC = U0fcJUUUUU 

l_lg _ 

2010 FOR Z = 1 TO 2:PRINT“anZZZZZZZZZ 

SS”;:NEXTZ 
2015 PRINT“@ S H S”; 

2020 FOR Z = 1T0 2:PRiNT“a 

UUUUIIUUUUUU) 

UfeJfeJUUUIJUUIlll) 


1182 


UUUUUUUUIIUU) 

UII)”:NEXTZ 

2030 PRINTTAB(36)“naJK”:PRINT 
“□”;:F0R Z = 1- TO 16:PRINT SPC(36) 
‘□aJK”:NEXTZ 

2040 F0RZ = 1T02:PRINT"flg] ZZZZZZZZZZ 
□ZZZZZZZZZZj; ZZZZZZZZZZ a zzzzzzz 
ZZZH”; 

2050 NEXT Z:RETURN 

Line 20 switches to the new character set and 
then jumps to the routine at Line 2000. The 
screen is drawn, including the score and high 
score positions. Line 2010 draws the spider’s 
cage, 2030 the ladder, and 2040 the ground. 

□ ■■■■■ 

Part one sees the graphics set up and the game 
initialized. 


GRAPHICS INITIALIZATION 


670 DEFPROCINITIALIZE 
680 DIM B%(6),S%(7) 

690 VDU 23,1 ,0;0;0;0; 

700 XP0S% = 1 :YP0S% = 2:CLR% = 3: 

P0INTS% = 4:CNT% = 5:MAXC0UNT% = 6 
710 VDU 19, 1,2, 0,0, 0,1 9, 2, 5, 0,0,0 
720 XINC% = 3:YINC% = 4:PICTURE% = 7 
730 FOR 1% = 0 TO (27*8) — 1:READJ%:? 

(&C00 + 1%) = J%:NEXTI% 

740 DATA 15,63,127,255,255,255, 

255,127 

750 DATA 240,252,254,255,255,255, 

255.254 

760 DATA 127,63,63,31,15,7,3,6 
770 DATA 254,252,252,248,240,224, 

192,96 

780 DATA 32,96,255,255,96,32,0,0 
790 DATA 5,10,252,252,10,5,0,0 
800 DATA 1,64,17,40,16,0,0,161 
810 DATA 128, 2, 136, 20, 8, 0,0, 133 
820 DATA 161 ,0,0, 16, 40, 17, 64,1 
830 DATA 133,0,0,8,20,136,2,128 
840 DATA 48,48,48,48,1 11,111 ,48,48 
850 DATA 12,12,12,12,246,246,12,12 
860 DATA 7,31,49,57,127,112,237,255 
870 DATA 224,248,140,204,254,14, 

183.255 

880 DATA 127,59,51,99,115,35,6,12 
890 DATA 254,108,102,51,49,25,24,48 
900 DATA 7,31,49,51,127,112,235,255 
910 DATA 224,248,1 40,1 56,254,1 4, 

215.255 

920 DATA 127,51,50,27,25,50,112,224 
930 DATA 254,204,108,102,54,22,3,6 
940 DATA 15,31,19,55,55,63,63,15 
950 DATA 240,248,248,252,252,252, 

252,240 

960 DATA 251,219,139,219,219,251, 

247,239 

970 DATA 252,254,254,254,254,254, 


254,252 

980 DATA 95,127,31,31,31,63,127,127 
990 DATA 188, 188, 188, 188, 188, 124, 

252,248 

1000 DATA 255,255,255,255,255,255, 

255,255 

1010 HISC0RE% = 0:ENDPROC 

Arrays B and S hold DATA concerned with the 
balloon and the spider. Integer arrays are 
DIMensioned in Line 680 to economize on 
memory. Line 690 switches off the cursor. 

Line 700 initializes a series of variables 
which are used to access the DATA in the arrays 
when setting up the UDGs. Finally, Line 
1010 sets the high score to zero, and is placed 
here as it occurs only once in the program. 


GAME INITIALIZATION 


1020 DEFPROCGAMEINIT 

1030 SC0RE% = 0:LEVEL% = 1 

1 040 M Y% = 1 5: B L% = 1 5 + 5 1 LEVEL%: 

AX% = 29:AY% = 1 6: DEAD% = 0: 

PRO PS% = 3 

1050 PROCMAKEBALLOON 
1060 COLOUR2:FORX% = 0 TO 28:PRINT 
TAB(X%,3);CHR$(154);TAB(X%,0);CHR$ 

(1 54):NEXTX% 

1070 PROCDRAWDOORS 
1080 C0L0UR1 30:COLOUR0:PRINT TAB 
(0,0);“L = ”;LEVEL%;“ □ □ B = ”;BL%; 
“□ □SC = ”;SC0RE% 

1 090 PRINT TAB(20,0);‘HI = ”;HISC0RE%: 

COLOUR128:COLOUR2 
1100 C0L0UR2:F0R Y% = 5 TO 2LPRINT 
TAB(30,Y%);CHR$(138);CHR$(139):NEXT 
Y% 

1110 PROCDRAWMAN 
1120 PROCDRAWSPIDER 
1130 ENDPROC 

In this PROCedure, the score, the level, and a 
whole series of variables are set. 

Line 1050 calls PROCMAKEBALLOON, 
which will be explained a little later, but 
draws a new balloon on screen. 

The next section of the program sets up the 
screen. Line 1060 draws the platform along 
the top of the screen, and Line 1070 draws the 
props. Game information is displayed by 
Lines 1080 and 1090. Freddy’s ladder is 
drawn by Line 1100, and Freddy and the 
spider by calling the appropriate PROCedures. 


FREDDY AND THE ARROW 


1140 DEFPROCDRAWMAN 
1150 COLOUR 3 

1160 PRINT TAB(30,MY%)CHR$(148)CHR$ 
(149) TAB(30,MY% + 1)CHR$(150)CHR$ 
(1 51 ) TAB(30,MY% + 2)CHR$(1 52)CHR$ 
(153) 

1170 IF AX% = 29 THEN PRINT TAB(29, 
















MY% -+- 1 )CHR$(1 32) 

1180 ENDPROC 

1190 DEFPROCDRAWARROW 

1200 C0L0UR:PRINT TAB(AX%,AY%)CHR$ 

(1 32)CH R$(1 33) 

1210 ENDPROC 

PROCDRAWMAN simply draws Freddy on the 
ladder. Freddy’s position is determined by 
the value of MY%. In a similar way, 
PRACDRAWARROW will draw the arrow at any 
position on the screen, according to the values 
of AX% and AY%. 


THE MARTIAN SPIDER 


1220 DEFPROCDRAWSPIDER 
1230 C0L0UR1 

1240 IF S%(PICTURE%) = 1 THEN 1260 
1250 PRINT TAB(S%(XP0S%),S%(YP0S%)) 
CHR${1 40)CHR$(1 41 )TAB(S%(XP0S%), 
S%(YP0S%) + 1)CHR$(142)CHR$(143): 
ENDPROC 

1260 PRINT TAB(S%(XP0S%),S%(YP0S%)) 
CHR$(144)CHR$(145)TAB(S%(XP0S%), 
S%(YP0S%) + 1)CHR$(146)CHR$(147): 
ENDPROC 

This PROCedure is very similar to the other 
printing PROCedures, but it has to be slightly 
more subtle because there are two images to 
play with. Both images are printed at the same 
place on the screen, one after the other, so the 
spider’s eight hairy legs appear to move as it 
scuttles backwards and forwards in its cage. 


THE BALLOON GOES UP 


1270 DEFPROCDRAWBALLOON 
1280 COLOUR B%(CLR%): PRINT TAB(B% 
(XP0S%),B%(YP0S%))CHR$(1 28)CHR$ 
(1 29)TAB(B%(XPOS%),B%(YPOS%) + 1 ) 
CHR$(130)CHR$(131):ENDPROC 
1290 DEFPROCMAKEBALLOON 
1300 RANGE% = RND(1)*6 
1310 B%(XP0S%) = (4*RANGE%) + RND 
(D*4 

1320 B%(YP0S%) = 20 
1 330 B%(MAXCOUNT%) = 5 - LEVEL% 
1340 B%(CNT%) = 1 
1350 B%(CLR%) = RND(3) 

1 360 B%(P0INTS%) = 10- RANGE% 

1370 ENDPROC 


Line 1280 in PROCDRAWBALLOON 
simply draws the balloons on 
screen, according to the values 
of XP0S% and YP0S%. 

PROCMAKEBALLOON-L, 

1290 to 1370 — inflate a new 
balloon once the previous one 
been popped by an arrow, or 
by reaching the beast’s cage. 

Balloons may appear at anv 
one of six places at the 
bottom of the screen, a: 
then float vertically upwan 
MAXC0UNT% determines how 
often the balloon is moved, and 
is related to the level the game has 
reached. And finally the points value 
of the balloon is set according to 
how close it is to Freddy’s Iadde 


THE DOORS 


1380 DEFPROCDRAWDOORS 
1390 C0L0UR2:IF LEVEL%< >1 THEN • 
PR I NT TAB (S%(XP0S%) ,S%(YP0S%) ) 

“ □ ”TAB(S%(XP0S%),S%{YP0S%) + 1) “□ 
1400 FOR X% = 10 TO 30 STEP 9 
1410 PRINT TAB(X%,1 )CHR$(1 54)TAB(X%,2) 
CHR$(1 54) 

1420 NEXT X% 

1 430 S%(XP0S%) = 1 :S%(YP0S%) = 1 : 
S%(XINC%) = 1 :S%(YINC%) = 0:S% 
(PICTURE%) = 1 
1440 ENDPROC 

Three locks are drawn in the spider’s cage by 
PROCDRAWDOORS to keep it imprisoned. 
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WORKING WITH 
SPREADSHEETS 


Here is the last part of the program. 
Type it in now and you can start to 
fill in the details and use the 
spreadsheet. The instructions explain 
exactly what to do 


If you add these remaining lines you will have 
a complete, working spreadsheet program, so 
LOAD in the first parts now and enter the last 
section listed below. A few examples were 
given in the earlier parts showing how you 
might set up a spreadsheet. Now you can find 
out the details of how to use the individual 
programs — which keys do what and so on. 
The general instructions that follow are the 
same for all the programs but there are a few 
differences in the commands and these are 
listed in the individual sections for each 
machine at the end. 


ENTERING EQUATIONS 


It is the ability to enter equations into the 
spreadsheet that makes it so versatile. Don’t 
be put off by the word ‘equations’ though, as 
these use no more than simple arithmetic such 
as adding columns together, totalling a whole 
row or working out percentages for VAT, 
discount, depreciation and so on. 

The operators used are plus, minus, multi- 
ply, divide, percent, row and column totals: 
+ , — and $. Equations are entered 

by specifying the name of the first cell, then 
the name of the second cell and then the 
operator. A few examples will help. Entering 
A1 B1 + in cell Cl adds the contents of A1 and 
B1 and displays it in cell Cl. The equation 
A1A10$ sums all the contents in column A 
from row 1 to row 10. Similarly, A6F6& sums 
all the entries in row 6 from column A to 
column F. Finally, A5B2% is worked out as 
A5*B2/100 and gives B2 percent of A5. The 
equations are entered into the cell in which 
you want the answer to appear. The Acorn, 
Dragon and Tandy programs also allow you 
to add a number after the equation to specify 
the number of decimal places that will appear 
in the answer. 


COPYING 


All the programs allow you to copy or 
replicate the contents of a cell. This saves you 
having to type in the same thing over and over 
again when you want a value or equation 
repeated in several cells. You can choose to 
copy something either absolutely or relatively. 
An absolute copy produces an exact replica of 
the cell anywhere else you choose — either in a 


single cell or along a section of a row or 
column. The relative copy is used specially 
for equations so that the equation is altered 
depending on the name of the row or column 
it is copied into. 

For example, if you have the equation 
A1 B1 # in cell Cl, you might want every cell in 
column C to multiply the numbers in the 
previous two columns together. So in C2 
you’d have A2B2* and so on. The relative copy 
does this for you. The procedure is as follows. 
First press the copy key (see below for the 
relevant key for each computer), then choose 
R for relative and enter the name of the cell 
you want copied (or on the Dragon and Tandy 
move the cursor to the correct cell). Then 
choose whether you want the cell copied along 
a row or column — press C in the case of this 
example. Finally enter the name of the start 
cell — say, Cl— and the end cell— say, C10. 
The program then fills in the whole column 
for you. Try copying equations along rows as 
well, and try an absolute copy of equations 
and values. 


UNCHANGING CONSTANTS 


It is often necessary to enter constants into 
equations. These are likely to be numbers 
such as 15 for percentage VAT calculations, 
perhaps 5 or 10 for percentage discounts, 30 
for tax and so on. Numbers cannot be entered 
directly into an equation — which is only 
based on the contents of two cells — and the 
method of putting them in varies for the 
different computers. 

On the Spectrum the constant has to be 
preceded by the letter Z, so A1 Z1 5% works out 
VAT payable on the figure in Al. On the 
Commodore and Acorn computers the const- 
ants have to be entered into cells in column X. 
So in the last example, number 15 would be 
put into cell XI and VAT would be worked 
out as A1X1%. The Dragon and Tandy 
program is much the same as this except the 
constants are entered into column Z. 

The reason for having a special method for 
dealing with constants is that these numbers 
or cells must stay the same even when copied 
relatively. Reserving a special letter or a 
special column for the constants ensures that 
these are treated separately. 


USING THE PROGRAM 


As mentioned, the specific details of how 
values, labels and equations are entered into 
the computer and how all the operations are 
performed varies between the four computers 
so these are listed separately below. 



The Spectrum program takes a little while to 
set up so you’ll see a blank screen for a while 
after you type RUN. The screen starts off in 
the values mode which means you can insert 
numbers or labels. Press E to swap to the 
equations mode and V to swap back again. To 
insert anything into a cell use the cursor key to 
move to the correct cell, then press I (for 
Insert) and type in the entry. 

Equations are displayed on a yellow back- 
ground, values on black and labels on blue. A 
label is anything entered into the values 
screen that starts with an alphabetic character. 
The colours show through each sheet so you 
can see which cells contain equations even 
when you are looking at the values screen, and 
vice versa. 

Only four columns and ten lines fit on the 
screen at any one time but you can move to 
other parts of the sprea dsheet by press ing the 
cursor keys along with [SYMBOL SHIFT] . 

Try inserting a few values and labels, then 
swap to the equations screen and try adding 
cells together, working out percentages and 
summing columns and rows. To see the 
results of the calculations swap back to t he 
values screen, press C and [SYMBOL SHIFTl to 
calculate the values. If any numbers are too 
big to fit into a cell, the rightmost digits that 
overflow will be cut off and the remaining 
number will flash as a warning. 

Now try copying some equations and 
values using the Z key. The program will 
prompt you to enter all the necessary details. 

Finally, here is a list of all the commands 
used by the program: 

V display values screen 

E display equations screen 

I insert an ent ry into a cell 

I followed by |ENTER| delete a value or 
label 

I followed by # delete an equation 
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C plus [SYMBOL SHTFtI calculate the 
values of any equations 
[SPACEl plus [SYMBOL SHIFT] abort calculation 

Z copy a cell 

S plus [SYMBOL SHIFT! save data to tape 
J plus ISYMBOL SHTFTI load data from 
tape 

P print screen on ZX or Alphacom 
printer 

Cursor keys move cursor 

Cursor keys plus ISYMBOL SHiFTl move 
window 

KS 

When you RUN the program you’ll see four 
columns and 15 rows of the spreadsheet, but 
you can move to other parts of the sheet using 
the cursor keys or the function key [f5]. Six 
function keys are used to control the program 
and these are listed at the bottom of the 
screen. Here’s a description of what each of 
the keys do: 

[fT] swap between values and equations 
screen 

^ 2 \ alter a cell 
[f3] copy a cell 

[f4] calculate results of equations 

[f5] move window 

[f6] save data and exit program 

To make an entry, first make sure you are on 
the correct screen for the type of entry you 
want to make, then press [ff] and type in the 
value, label or equation. A label is anything 
entered on the values screen that starts with 
an alphabetic character. 

To copy a cell, press [f3] and you will be 
prompted to enter all the necessary details. 
Press [f4] to calculate the equations. If any 
number is too big to fit into a cell then the 
words TOO BIG will be printed instead. 

Use [f5] to move to a different part of the 
screen by specifying the cell you want to see in 
the top left-hand corner. 

Try entering some values and equations 
into the sheet and practise copying, both 
absolutely and relatively, and calculating the 
results of equations. 


The Acorn program uses the function keys to 
control the program and when you RUN the 
program these are listed at the bottom of the 
screen underneath the spreadsheet. Only a 
small part of the spreadsheet is visible at any 
time but you can move the ‘paper’ under the 
window with the cursor keys, or with [f4] for a 
large move. 

Key [f0] swaps between values and equa- 
tions screens and |TT] lets you make an entry 
into a cell. Key 03] calculates the values of any 
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equations and displays the results on the 
values screen. If a number is too big to fit into 
a cell then the words TOO BIG are printed 
instead. 

The Acorn program allows you to specify 
the number of decimal places of any cal- 
culated value. The number can be entered at 
the end of an equation, so A1 B1 *2 will display 
the answer to two decimal places— -useful 
when dealing with quantities of money. It is 
also useful if a number is likely to be too big as 
specifying zero decimal places may mean it 
will fit on the screen. 

Here is a list of the keys used: 

m swap between values and equa- 
tions screen 
[fT] alter cell 

02] copy a cell 

03] calculate equations 

04] move window 

[TAB [ save data and exit program 
lESCAPEl escape from current operation 
without losing data 


E2 


When you RUN the program you’ll see just the 
top left-hand corner of the spreadsheet but 
you can move to any other part of the sheet 
with the cursor keys, or by pressing G for a 
large move. The V and E keys swap between 
the values screen and the equations screen. 
You can enter values or numbers on either 
screen but the results of calculations are only 
displayed on the values screen. To insert 
anything into a cell move the cursor to the 
correct cell then press I and type in your 
entry. 

Equations are entered as described earlier 
except that you can add a number to the end 
of the equation to specify the number of 
decimal places in the result. For example, 
A1B1/2 will display the result of A1 divided 
by B1 to two decimal places, which is ideal for 
dealing with quantities of money. If the result 
of any calculation is too big to fit into a cell 
then the overflow message < OV > will be 
printed instead. Specifying zero decimal 
places in the equation that works out that 
result may mean that the answer will fit in 
the cell. 

Here is a list of all the keys used by the 
program: 

V display value screen 

E display equation screen 

I insert label, value or equation 

C copy a cell 

S save data to tape 

L load data from tape 

Q quit program 

Cursor keys move cursor and shift ‘paper’ 


910 IF z = 3 THEN LET v(1) = (CODE 
s$(1 )) — 64: LET v(2) =VAL s$(2): LET 
v(3) = (CODE s$(3)) — 64: LET v (4) = VAL 
s$(4 TO 5): LET o$ = s$(6): RETURN 
920 IF z = 4 THEN LET v (1) = (CODE 
s$(1 )) — 64: LET v(2) = VAL s$(2 TO 3): 
LET v(3) = (CODE s$(4)) — 64: LET 
v(4) = VAL s$(5 TO 6): LET o$ = s$(7): 
RETURN 

930 IF z = 5 THEN LET v(1) = (CODE 
s$(1 )) — 64: LET v(2) = VAL s$(2): LET 
v(3) = (CODE s${3)) — 64: LETv(4)=VAL 
s$(4): LET o$ = s$(5): RETURN 
940 IF z = 6 THEN LET v(1) = (CODE 
s$(1 )) — 64: LET v(2)=VAL s$(2 TO 3): 
LET v(3) = (CODE s$(4)) — 64: LET 
v(4) =VAL s$(5): LET o$ = s$(6): RETURN 
950 IF z = 7 THEN LET v(1) = (CODE 
s${1 )) — 64: LET v(2) = VAL s$(2): LET 
v(3) = (CODE s$ (3)) -64: LET v(4) = VAL 
s$(4 TO 5): LET o$ = s$(6): RETURN 
960 IF z = 8 THEN LET v(1) = (CODE 
s$(1 )) — 64: LET v(2) = VAL s$(2 TO 3): 
LET v(3) = (CODE s$(4)> — 64: LET 
v{4) = VAL s$(5 TO 6): LET o$ = s$(7): 
RETURN 

970 IF z = 9 THEN LET v(1) = (CODE 
s$(1 )) — 64: LET v(2) = VAL s$(2): LET 
V (3) = (CODE s$(3)) — 64: LET v(4) =VAL 
s$(4 TO 6): LET o$ = s$(7): RETURN 
980 IF z = 1 0 THEN LET v(1) = (C0DE 
s$(1 )) — 64: LET v(2) = VAL s$(2 TO 3): 
LET v(3) = (CODE s$(4)) ■ — 64: LET 
V (4) = VAL s$(5 TO 7): LET o$ = s$(8): 
RETURN 

990 LET v(1 ) = {CODE s$(1 )) — 64: LET 
v{2) = VAL s$(2): LET v(3) = (CODE 
s$(3)) — 64: LET v(4) = VAL s$(4 TO 7): 
LET o$ = s$(8): RETURN 
1000 RETURN 

1 01 0 IF d$(v(2),v(1 ),1 ) > “9” THEN LET 
t = 0: RETURN 

1020 IF v(3) = 26 THEN LET b = v(4): LET 
a = VAL d$(v(2),v(1), TO 8): GOTO 1050 
1030 IF d$(v(4),v(3),1) >“9” THEN LET 
t = 0: RETURN 

1040 LET a = VAL d$(v(2),v(1), TO 8): 

LET b = VAL d$(v(4),v(3), TO 8) 

1050 IF o$ = “ + ” THEN LET t = a + b: 
RETURN 

1060 IF o$ = “-” THEN LET t = a — b: 
RETURN 

1070 IF o$ = “/” AND b = 0 THEN LET t = 0: 
RETURN 

1080 IF o$ = “/” THEN LET t = a/b: RETURN 
1090 IF o$ = “*” THEN LET t = a*b: RETURN 
1100 IF o$ = “%” THEN LET t = (a*b)/1 00: 
RETURN 

1110 IF o$ = “$” THEN LET t = 0: FOR 







s = v( 2) TO v(4): LET t = t + VAL d$(s,v(1 ), 
TO 8): NEXT s: RETURN 
1120 IF o$ = “&” THEN LET t = 0: FOR 
s = v(1) TO v(3): LET t = t + VAL d$(v(2),s, 
TO 8): NEXTs: RETURN 
1130 RETURN 

1140 IF z = 1 THEN IF VAL a$(2) = 0ORVAL 
a$(4) = 0 THEN LET f = 1 : RETURN 
1150 IF z = 2 THEN IF VAL a$(2TO3)>30 
OR VAL a$(2 TO 3) = 0 OR VAL a$(5) = 0 
THEN LET f = 1 : RETURN 
1 1 60 IF z = 3 THEN IF VAL a$(4 TO 5) > 30 
OR VAL a$(4 TO 5) = 0 OR VAL a$(2) = 0 
THEN LET f = 1 : RETURN 
1170 IF z = 4 THEN IF VAL a$(2 TO 3) >30 
OR VAL a$(5 TO 6) > 30 OR VAL a$(2 TO 
3) = 0 OR VAL a$(5 TO 6) = 0 THEN LET 
f=1: RETURN 

1180 IF z = 5 OR z = 7 OR z = 9 OR z = 11 
THEN IF VAL a$(2) = 0THEN LET f = 1 : 
RETURN 

1190 IF z = 6 OR z = 8 OR z = 10 THEN IF 
VAL a$(2 TO 3) = 0 OR VAL a$(2 TO 
3) >30 THEN LET f = 1 : RETURN 

1200 LETs$=“nnnnnnDD”: for 

g = 1 TO c: LET s$(g) = a$(g): NEXT g: 
GOSUB 890: IF o$ = “&” AND 
(v(1) > v(3) OR v(2) < > v(4)) THEN LET 
f=1: RETURN 

1210 IF o$ = “$” AND (v(1) < >v(3) OR 
v(2) >v(4)) THEN LET f=1: RETURN 
1220 LET f = 0: RETURN 
1230 LET g$ = d$ (y + wy,x + wx,1 7) 

1240 PRINT FLASH 0 + (g$ = “5” AND 
t$ = “VAL”); INK 0 + (2 AND g$ = “4”); 
PAPER 7 -(2 AND g$ = “2”)-(g$ = ‘T’ 
OR g$ = “5”);AT 

y'2 + 2,x'9 + 5;(d$(y + wy,x + wx, TO 8) 
AND t$ = “VAL”); (d$(y + wy,x + wx,9 TO 
16) AND t$ = “EQU”): RETURN 
1250 BEEP .4,10 

1260 let s$=“D □□□□□□□”: let 

os = 0 

1270 PAUSE 20: PRINT AT cy*2, 

(cx — 1)’9 + 5 + os; BRIGHT 1; OVER 

1;“D” 

1280 IF CODE INKEY$ >31 AND CODE 
INKEYS <128 THEN LET 
s$(os + 1) = INKEYS: PRINT AT cy’2, 

(cx — 1)‘9 + 5 + os; s$(os + 1): LET 
os = os + 1 : GOTO 1350 
1290 IF CODE INKEYS = 12 AND os >0 THEN 
LET os = os — 1 : LETs$(os + 1) = “ 

PRINT AT cy*2,((cx - 1 )*9) + 5 + os; OVER 
0; BRIGHT 0;“D(H”: GOTO 1270 
1300 IF CODE INKEYS = 13 AND 
s$ = “D □□□□□□□” THEN 
RETURN 

1310 IF CODE INKEYS = 13 AND t$ = “VAL” 
AND CODE s$(1) >64 THEN LET 
d$( wy + cy - 1 , wx + cx - 1 ,1 7) = “2”: 


LET d$(wy + cy — 1 , wx + cx — 1 , TO 
8) = s$: LET y = cy — 1 : LET x = cx — 1 : 
GOSUB 1230: RETURN 
1320 IF CODE INKEYS = 13 AND t$ = “VAL” 
THEN GOSUB 1380: LET os = 0: LET 
d$(wy + cy — 1,wx + cx — 1, TO 8)=s$: 
LET y = cy — 1 : LET x = cx — 1 : GOSUB 
1230: RETURN 

1330 IF CODE INKEYS = 13 AND t$ = “EQU” 
THEN GOSUB 1380: LET os = 0: LET 
d$(wy + cy—1, wx + cx — 1,9 TO 16) = s$: 
LET x = cx — 1 : LET y = cy — 1 : GOSUB 
1230: RETURN 
1340 GOTO 1270 

1 350 IF os = 8 AND t$ = “VAL” THEN BEEP 
.1,-10: GOSUB 1380: LET 
d$(wy + cy — 1 ,wx + cx — 1 , TO 8) = s$: 
LET y = cy — 1 : LETx=cx-1: GOSUB 
1230: RETURN 

1 360 IF os = 8 AND t$ = “EQU” THEN BEEP 
.1,-10: GOSUB 1380: LET 
d$(wy + cy — 1 ,wx + cx — 1 ,9 TO 1 6) = s$: 
LET y = cy — 1 : LETx=cx-1: GOSUB 
1230: RETURN 
1370 GOTO 1270 

1380 PRINT AT cy*2, ((cx-1)’9) + 

5 + os; BRIGHT 0; 0VER1;“D” 

1390 IF t$ = “EQU” THEN GOSUB 1490: 
RETURN 

1400 GOSUB 1410: PRINT AT cy'2, 

(cx — 1)'9 + 5;s$: RETURN 

1410 let b$=“nnnnnnnn 

000”: FOR u = 1 TO os: LET 
b$(u + (8 — os)) = s$(u): NEXT u 
1420 FOR u = 1 T011 
1430 IF b$(u) < >“.” THEN NEXT u 
H40 IF u> =11 THEN LET b$(9) = “”: LET 
s$ = b$(4 TO ): RETURN 
1450 LET w = 6 — u 

1460 IF w<0 THEN LETw = ABSw + 1: LET 
s$ = b$(w TO w + 8): RETURN 

1470 let s$=“DDDnnnnn” 

1480 FOR u = 1 TO 8 — w: LET 

s$(w + u) = b$(u): NEXT u: RETURN 
1490 IF s$(1) = “#” THEN LET 

s$=“Dnnnnnnn”: let 

d$(wy + cy — 1 ,wx + cx — 1 ,1 7) = “0”: 
RETURN 

1 500 LET a$ = FOR z = 1 TO 8: LET 
a$ = a$ + (s$(z) AND s$(z)< >“□”) 
1510 NEXT z: LET c = LEN a$ 

1520 IF c<4 THEN LET d$(wy + cy-1, 
wx + cx — 1,17) = “4”: RETURN 
1530 RESTORE 1630: FOR 2 = 1 TO 1 1 : LET 
f = 0: READ m$ 

1540 FOR w = 1 TOc 

1550 IF m$(w) = “A” THEN GOSUB 1650: IF 
f THEN GOTO 1610 

1560 IF m$(w) = “N” THEN GOSUB 1670: IF 
f THEN GOTO 1610 

1570 IF m$(w) = “0” THEN GOSUB 1690: IF 


f THEN GOTO 1610 

1580 IF m$(w) = “Z” THEN GOSUB 1710: IF f 
THEN GOTO 1610 

1590 NEXT w: GOSUB 1140: IF NOT f THEN 

LETs$=“nnnnnDnn”: for 

w = 1 TO c: LET s$(w) = a$(w): NEXT w: 
LET d$(wy + cy — 1, 
wx + cx — 1,18) = CHR$ z: LET 
d$(wy + cy— 1, wx + cx — 1,17) = 

“1”: RETURN 
1600 GOTO 1620 
1610 NEXT z 

1620 LET d$(wy + cy— 1, wx + cx — 1, 

17) = “4”: RETURN 

1630 DATA “ANANOOO”,“ANNANOO”, 
“ANANNOO”,“ANNANNO” 

1640 DATA “ANZNOOOO”,“ANNZNOOO”, 
“ANZNNOOO”,“ANNZNNOO”, 
“ANZNNNOO”,“ANNZNNNO”, 
“ANZNNNNO” 

1650 IF a$(w)> =“A” AND a$(w)< =“X” 
THEN RETURN 
1660 LET f = 1 : RETURN 
1670 IF a$(w) > =“0” AND a$(w) < =“9” 
THEN RETURN 
1680 LET f=1: RETURN 
1690 LET c$ = a$(w): IF c$ = “ + ” OR 
c$ = “-” OR c$ = “‘” OR c$ = OR 
c$ = “%” OR c$ = “$” OR c$ = “&” 

THEN RETURN 
1700 LET f = 1 : RETURN 
1710 IF a$(w) = “Z” THEN RETURN 
1720 LET f = 1: RETURN 
1730 FOR y = 1 TO 30: FOR x = 1 TO 24: LET 
d$(y,x, TO 8) = “□ □ □ ID0.00”: LET 
d$(y,x,17) = “0”: LET d$(y,x,18) = CHR$ 
0: NEXT x: NEXT y 

1740 RESTORE 1750: FOR x = USR “a” TO 
USR “c” + 7: READ a: POKE x,a: NEXT x: 
RETURN 

1750 DATA 8, 8, 8, 8, 8, 8, 8, 8 
1760 DATA 0,0,0,255,0,0,0,0 
1770 DATA 8,8,8,255,8,8,8,8 
1780 INPUT “FILENAME ?”;n$ 

1790 SAVE n$ DATA d$() 

1800 PRINT #1;AT 0,0;“PRESS V TO 
VERIFYD” 

1810 PAUSE 0: IF INKEYS = “v” OR 
INKEYS = “V” THEN GOTO 1830 
1820 RETURN 

1830 VERIFY n$ DATA d$(): RETURN 
1840 INPUT “FILENAME ?”;n$ 

1850 LOAD n$ DATA d$(): RETURN 

1 720 S$ = CHR$(1 3) + CHR$(1 45) + 

“□□□□□□□□□□□□□□□ 
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1730 W$ = “WRONG MODE FOR RELATIVE” 








1 

II 

IIIIIMH 


25 l 


1740 GOSUB 590 

1750 IF A$ = “«-” THEN RETURN 
1760 PRINT“ABSOLUTE OR RELATIVE”; 

1770 AA$ = “A”:BB$ = “R”:G0SUB 1280 
1780 IF TP = 0 AND A$ = “R” THEN PRINT 
S$;W$;:F0R W = 1 TO 1000:NEXT 
1790 IF TP = 0 AND A$ = “R” THEN RETURN 
1800 IF A$ = “A” THEN K1=0 
1810 IF A$ = “R”THEN K1 =1 
1820 PRINT S$; 

1830 PRINT“COLUMN OR ROW ALTER”; 

1840 AA$ = “C”:BB$ = “R”:GOSUB 1280 
1850 IF A$ = “C” THEN K2 = 1 
1860 IF A$ = “R” THEN K2 = 0 
1870 PRINT S$; 

1880 PRINT “nFROM COLfcJ”; 

1890 AA$ = “A”: BB$ = “W”:GOSUB 1250 
1900 Cl =ASC(A$) — 64:PRINT A$ 

1910 INPUT“ROW”;R1 
1920 IF R1 <0 OR R1 >CM THEN PRINT 
TAB(6)“n”vGOTO 1910 
1930 PRINT“nTOnDD”; 

1940 IF K2 = 0 THEN AA$ = “A”: 

BB$ = “W”:GOSUB 1250:C2 = ASC 
(A$) — 64:PRINTA$;:R2 = R1 
1950 IF K2 = 1THEN C2 = C1:PRINT 
CHR$(C2 + 64):INPUT“ □ ROWD”; 

R2 

1960 IF R2<R1 OR R2>RM THEN 1950 
1970 ON K1 '2 + K2 + TP/2 + 1 GOSUB1990, 
2020,2070,2070,2080,21 1 0,21 40,2260 
1980 RETURN 
1990 GOSUB 2400 

2000 FOR NN = C1 TO C2:GOSUB 2450:NEXT 
NN 

2010 RETURN 
2020 GOSUB 2400 
2030 FOR NN = R1 TO R2 
2040 A$ = LEFT$(D$(NN,C1),8): 

IF ASC(A$) = 128 THEN A$ = “D” + 
RIGHT$(A$,7) 


2050 D$(NN,C1) =A$ + F$ 

2060 NEXT NN 
2070 RETURN 
2080 GOSUB 2410 

2090 FOR NN = Cl TO C2:GOSUB 2470: 

NEXT NN 
2100 RETURN 
2110 GOSUB 2410 

2120 FOR NN = R1 TO R2:GOSUB 2440: 

NEXT NN 
2130 RETURN 

2140 GOSUB 2410:GOSUB 2420 
2150 FF = 0:IFX1 >9 THEN FF = 1 
2160 AA$ = MID$(F$,2,1 + FF) 

2170 BB$ = RIGHT$(F$,5 — FF) 

2180 FOR NN = C1 TO C2 

2190 F$ = CHR$(64 + Y1) + AA$ + CHR$ 

(64 + Y2) + BB$ 

2200 IF LEN(F$) <8 THEN F$ = F$ + 
“□”:GOTO 2200 
2210 GOSUB 2470 

2220 Y1 = Y1 + 1 :Y2 = Y2 + 1 :IF Y2 < 0 THEN 
Y2 = — 3 

2230 IF Y2 = 24 THEN Y2 = 23 
2240 NEXT NN 
2250 RETURN 

2260 GOSUB 241 0:GOSUB 2420 
2270 FF = 0:IF XI >9 THEN FF = 1 
2280 IF X2> 9 THEN FF = FF + 1 
2290 AA$ = MID$(F$,5 + FF,2) 

2300 FOR NN = R1 TO R2 
231 0 XI $ = RIGHT$(STR$(X1 ),LEN 
(STR$(X1 )) — 1 ) 

2320 X2$ = RIGHT$(STR$(X2),LEN 
(STR$(X2)) — 1 ) 

2330F$ = CHR$(Y1 +64) + X1$ + CHR$ 

(Y2 + 64) + X2$ + AA$ 

2340 IF LEN(F$) <8 THEN F$ = F$ + 
“□”:GOTO 2340 
2350 GOSUB 2440 

2360 XI = XI + 1 :X2 = X2 + 1 :l F Y2 = - 3 


2370 IF Y2 = 24 THEN X2 = X2-1 
2380 NEXT NN 
2390 RETURN 

2400 F$ = RIGHT$(D$(R,C),8): 

RETURN 

2410 F$ = LEFT$(D$(R,C),8): 

RETURN 

2420 GOSUB 2480: IF XI =0 THEN GOSUB 
2080:RETURN 
2430 RETURN 

2440 D$(NN,C1 ) = F$ + RIGHT$(D$(NN,C1 ), 
8):RETURN 

2450 A$ = LEFT$(D$(R1,NN),8):IF 
ASC(A$) = 1 28 TH EN A$ = “ □ ” + 
RIGHT$(A$,7) 

2460 D$(R1,NN) = A$ + F$:RETURN 
2470 D$(R1,NN) = F$ + RIGHT$(D$(R1, 
NN),8):RETURN 
2480 F = 0 

2490 Y1 = ASC(MID$(F$,1 ,1 )) — 64 
2500 XI =VAL(MID$(F$,2,2)) 

2510 IF XI >9 THEN F = 1 
2520 Y2 = ASC(MID$(F$,(3 + F), 

1)) —64 

2530 X2 = VAL(MID$(F$,(4 + F),2)) 

2540 IF X2> 9 THEN F = F + 1 
2550 Q1 $ = OP$:Q2$ = MID$(F$, 

5 + F,2) 

2560 GOSUB 2670 

2570 D = VAL(MID$(F$,6 + F,1 )) 

2580 RETURN 

2590 PRINT“TO START FROM: 

COL + ROWfc|”; 

2600 AA$ = “A”:BB$ = “W”:GOSUB 1250 
261 0 PRINT A$:CS = ASC(A$) - 64 
2620 IN PUT A$:V = VAL(A$) 

2630 IF V>RM — LM THEN V = RM-LM + 1 
2640 IF V < 1 THEN V = 1 
2650 RS=V 
2660 RETURN 
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2670 Q = 0 
2680 Q = Q + 1 

2690 IF MID$(Q1$,Q,1) = Q2$ THEN RETURN 
2700 IF Q< LEN(Q1$) THEN 2680 
2710 Q = 0:RETURN 

1770 REM arithmetic routines 
1780 ans = FNvl + FNv2:RETURN 
1790 ans = FNvl -FNv2:RETURN 
1800 ans = FNvl *FNv2: R ETU R N 
1810 IF FNv2 = 0 THEN ans = 0: 

RETURN ELSE ans = FNvl /FNv2: 

RETURN 

1820 ans = FNv2*FNv1 /1 00: RETURN 
1830 ans = 0:FOR n% = r1% TO r2% 

1840 ans=ans + VAL(MID$(D$(n%,c1%),9, 

8 )) 

1850 NEXT 
1860 RETURN 

1870 ans = 0:FOR n% = cl % TO c2% 

1 880 ans = ans + VAL(MID$(D$(r1%,n%),9,8)) 

1890 NEXT 

1900 RETURN 

1910 ans = FNvl rRETURN 

1920 DEF PROCsave 

1930 CLS 

1940 PRINTTAB(0,5)“Do you wish to 
save”'“current data (Y/N)? □ 

1950 PROCgetabs (“Y”, “N”) 

1960 IF A$ = “N” ENDPROC 
1970 X = OPENOUT(“SprdDta”) 

1980 PRINT #X,0,0,“*'” 

1990 FOR c = 1 TO Cols 
2000 FOR r = 1 TO Rows 
2010 IF LEFT$(D$(r,c),1 ) < > CHR$1 28 
PRINT #X,r,c,D$(r,c) 

2020 NEXT, 

2030 CLOSE #X 
2040 ENDPROC 
2050 DEF PROCIoad 


2060 PRINTTAB(0,5)“Do you wish to load”'“ 
an existing file (Y/N)?D”; 

2070 PROCgetabs (“Y”,“N”) 

2080 IF A$ = “N” ENDPROC 

2085 PRINT'“PRESS PLAY ON RECORDER” 

2090 X = OPENIN(“SprdDta”) 

2100 REPEAT 

2110 INPUT #X,r,c,D$(r,c) 

2120 UNTIL EOF #X 

2130 CLOSE #X 

2140 ENDPROC 

2150 DEF PROCclrp(A$,vpos) 

2160 PRINTTAB(0,vpos)SPC20 
TAB(0,vpos)A$; 

2170 ENDPROC 
2180 DEF PROCreplicate 
2190 vpos = VPOS 
2200 PROCcellin(vpos) 

2210 PRINTTAB(0,vpos + 1)CHR$(129);CHR$ 
(Col + 64);Row; 

2220 PROCcIrp (“Absolute or 
Relative”, vpos):PROCgetabs 

(“A”,“R”) 

2230 IF Type = 0 AND A$ = “R” PRINT' 
CHR$129;“Wrong mode for relative”: 

A$ = INKEY$(200): ENDPROC 
2240 IF A$ = “A” k1%=0:A$ = “Abs” 

2250 IF A$ = “R” k1% = 1 :A$ = “Rel” 

2260 PRINTTAB(7,vpos + 1 )A$ 

2270 PROCclrp(“Column or Row alterlU”, 
vpos) : PROCgetabs(“C”,“R”) 

2280 IF A$ = “C” k2% = 1:A$ = “Col” 

2290 IF A$ = “R” k2% = 0:A$ = “Row” 

2300 PRINTTAB(1 2, vpos + 1 )A$ 

2310 PROCclrp(“ From vpos) 

2320 PR0Cgetbet(“@”,“Y”):c1 % = 

ASC(A$) — 64:PRINTA$; 

2330 REPEAT PRINTTAB(6,vpos)SPC(4);: 
VDU8,8,8,8:INPUT“”r1%:UNTIL rl % > 0 
AND r1%< =Rows 

2340 PRINTTAB(18,vpos + 1)CHR$(c1% + 


64);r1% 

2350 PROCclrp(“TonnD”,vpos) 

2360 IF k2% = 1 PRINTCHR$(c1% + 64);: 
REPEAT PRINTTAB(6,vpos)SPC(4);:VDU8, 8, 
8,8:INPUT“”r2%:UNTIL r2%>r1% AND 
r2% < = Rows:c2% = cl % 

2370 IF k2% = 0 PROCgetbet(“@”,“Y”): 

c2% = ASC(A$) - 64:PRINTA$;:r2% = r1% 
2380 PRINTTAB(22,vpos + 1)CHR$(c2% + 
64);r2% 

2390 ON k1%’2 + k2% + Type/2 + 1 GOSUB 
2410,2440,2490,2490,2500,2530,2560, 
2680 

2400 ENDPROC 
2410 GOSUB2800 

2420 FOR n% = c1% TO c2%:GOSUB 
2850: NEXT 
2430 RETURN 
2440 GOSUB 2800 
2450 FOR n% = r1% TO r2% 

2460 A$ = LEFT$(D$(n%,c1%),8):IF ASC 
(A$) = 1 28 A$ = “ □ ” + RIGHT$(A$,7) 
2470 D$(n%,c1%) = A$ + F$ 

2480 NEXT 
2490 RETURN 
2500 GOSUB2810 

2510 FOR n% = c1% TO c2%:G0SUB 
2870: NEXT 
2520 RETURN 
2530 GOSUB2810 

2540 FOR n% = r1% TO r2%:G0SUB 
2840:NEXT 
2550 RETURN 

2560 GOSUB2810:GOSUB2820 
2570 f% = 0:IF x1%> 9 f% = 1 
2580 a$ = MID$(F$,2,1 +f%) 

2590 b$ = RIGHT$(F$,5 — f%) 

2600 FOR n% = cl % TO c2% 

2610 F$ = CHR$(64 + y1%) + a$ + CHR$ 

(64 + y2%) + b$ 

2620 IF LENF$<8 F$ = F$ + “D”: 
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GOTO2620 
2630 GOSUB 2870 
2640 yl % = yl % + 1 :y2% = y2% + 1 : 

IF y2%<0 y2%= —3 
2645 IF y1% = 24 OR y2% = 24 THEN 
n% = c2%: GOTO 2660 
2650 IF y2% = 25 y2% = 24 
2660 NEXT 

2655 IF yl % = 25 y1% = 24 
2670 RETURN 

2680 GOSUB2810:GOSUB2820 
2690 f% = 0:IF xl % > 9 f% = 1 
2700 IF x2% > 9 f% = f% + 1 
2710 a$ = MID$(F$,5 + f%,2) 

2720 FOR n% = r1% TO r2% 

2730 F$ = CHR$(y1% + 64) + STR$(x1 %) + 
CHR$(y2% + 64) + STR$(x2%) + a$ 

2740 IF LEN F$ < 8 F$ = F$ + “D”: 

GOTO 2740 
2750 GOSUB 2840 

2760 xl % = xl % + 1 :x2% = x2% + 1 :IF 
y2%= -3 x2% = x2% — 1 
2765 IF x1% = 21 OR x2% = 21 THEN n% = 
r2%:GOTO 2780 

2770 IF y2% = 24 x2% = x2% - 1 
2775 I F yl % = 24 xl % = xl % - 1 
2780 NEXT 
2790 RETURN 

2800 F$ = RIGHT$(D$(Row,Col),8):RETURN 
2810 F$ = LEFT$(D$(Row,Col),8):RETURN 
2820 PROCdecode:IF x1% = 0 GOSUB2500: 

RETURN 
2830 RETURN 

2840 D$(n%,c1%) = F$ + RIGHT$(D$(n%, 
c1%),8):RETURN 

2850 A$ = LEFT$(D$(r1%,n%),8):IF 
ASC(A$) = 1 28 A$ = “ □ ” + RIGHTS 
(A$,7) 

2860 D$(r1%,n%) = A$ + F$:RETURN 
2870D$(r1 %,n%) = F$ + RIGHT$(D$(r1 %, 
n%), 8): RETURN 
2880 DEF PROCdecode 
2890 f% = 0 

2900 y1% = FNc(1):x1% = FNr(2) 

2910 IF xl % > 9 f% = 1 

2920 y2% = FNc(3 + f%) :x2% = FNr(4 + f%) 

2930 IF x2% > 9 f% = f% + 1 

2940 op% = INSTR(Op$,MID$(F$,5 + f%)) 

2950 d% = FNr(6 + f%) 

2960 ENDPROC 

2970 DEF PROCwindowstart 

2980 PRINT“To start from: 

Col + Row □ PROCgetbet(“@”,“Y”) 
2990 PRINTA$;:Colstart = ASC(A$) — 64 
3000 I FColstart > Cols — 3 TH EN 
Colstart = Cols — 3 
3010 INPUT“”A$:v = VALA$ 

3020 I F v > Rows — Length □ v = Rows — 
Length + 1 
3030 IF v<1 v = 1 
3040 Rowstart=v 


3050 ENDPROC 

3060 IF ERR = 17 THEN 170 

3070 REPORT:PRINT“DAT LINED”; 

ERL:*FX4 
3080 END 


CHANGES FOR THE ELECTRON 


You’ll need to make a few changes to the 
Acorn program so that it will run on the 
Electron. Delete Lines 140, 360, 440 to 480 
and 770 then change: 

10 MODE 6:’FX4,1 

50 DIM D$(Rows,Cols):VDU 23,128,0,0,0,0, 

0,0, 0,0 

370 IF Type = 0 PRINT" □ ”RIGHT$(D$ 

(r,c),8); 

380 IF Type = 8 PRINT“D”LEFT$(D$ 

(r,c),8); 

540 PRINT” < TAB > toexitDD:D”; 

1310 PRINT“WORKING” 

221 0 PRINTTAB(0,vpos + 1 )CHR$(Col + 64); 
Row; 

2230 IF Type = 0 AND A$ = “R” 

PRINT'“Wrong mode for relative”: 

A$ = INKEY$(200):ENDPROC 




1490 PRINT @448: PRINT @448,;: IF LEN 
(D$(CC, CR)) = 1 THEN PRINT 
“NOTHING TO COPY”: SOUND5,5: FOR 
K = 1 TO 500: NEXT: RETURN ELSEPRINT 
“aBSOLUTE OR rELATIVE COPY”; 

1500 A$ = INKEY$:IF A$ = “” THEN1500 

1510 IF A$ = CHR$(13) THEN RETURN 

1520 IF A$ = “A” THEN TC = 1: 

GOTO1540 

1530 IF A$o“R” THEN 1490 ELSE 
TC = 0 

1540 PRINT@448 

1550 IF TC = 0 AND ASC(D$(CC,CR)) 

< >131 THEN PRINT@448, “WRONG 
COPY MODE - EQUATIONS ONLY”;: 
SOUND 1,5:FORD = 1TO500:NEXTD:GOTO 
490 

1 560 PRINT@448:PRINT@448, “COLUMN 
OR rOW COPY”; 

1570 A$ = IN KEYS: IF A$ = “” THEN1570 

1580 IF A$ = CHR$(1 3) THENRETURN 

1590 IF A$ = “C” THEN DC = 1:GOTO 1610 

1600 IF A$< >“R” THEN 1560 ELSE 
DC = 0 

1610 PRINT@448:PRINT@448, “START AT 
CELL”;:INPUT A$:IF A$ = “” THEN 
RETURN 

1620 SI = ASC(A$) — 64:IF SI < 1 OR 
SI >25 THEN 1610 

1630 S2=VAL(MID$(A$,2)):IF S2 < 1 OR 
S2 > 30 THEN 1610 

1640 PRINT@448:PRINT@448, “FINISH AT 
CELL”;:INPUT AS 



1650 IF A$ = “” THENRETURN 
1660 Cl = ASC(A$) — 64:IF Cl < 1 OR 
Cl >25 THEN 1640 

1670 C2 = VAL(MID$(A$,2)):IF C2 < 1 OR 
C2 > 30 THEN 1640 

1680 PRINT@448, “COPYING - WAIT” 
1690 IF TC = 1 THEN 1970 
1700 IF DC = 1 THEN 1840 
1710 IF C2< >S2 THEN 2090 
1720 AS = ASC(MID$(D$(CC,CR), 

2)) — 64:IF AS< >26 AND 
AS + C1 — SI >25 THEN 
Cl =25 + SI — AS 
1730 AS = ASC(MID$(D$(CC,CR), 

5)) — 64:IF AS< >26 AND 
AS + Cl -SI >25 THEN 
Cl =25 + SI — AS 
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1740 D$(S1 ,S2) = D$(CC,CR) 

1750 FOR I = S1 + 1 TO Cl 
1760 A$ = D$(I — 1,S2) 

1770 IF MID$(A$,2,1) = “Z” THEN 1790 
1780 MID$(A$,2,1 ) = CHR$(ASC(MID$ 
(A$,2,1)) + 1) 

1790 IF MID$(A$,5,1) = “Z” THEN 1810 
1800 MID$(A$,5,1) = CHR$(ASC(MID$ 
(A$,5,1)) + 1) 

1810 D$(I,S2) = A$:NEXT 
1820 IF Cl > CX THEN CX = C1 
1830 GOTO 2080 
1840 IF Cl < > SI THEN 2090 
1 850 AS = VAL(MID$(D$(CC,CR),3,2)):IF 
AS + C2 — S2>30 THEN 
C2 = 30 + S2 — AS 

1860 AS = VAL(MID$(D$(CC,CR),6)):IF 


AS + C2 — S2 > 30 THEN 
C2 = 30 + S2 — AS 
1870 D$(S1,S2) = D$(CC,CR) 

1880 FOR I = S2 + 1 TO C2 
1890 A$ = D$(S1 ,1-1) 

1900 IF MID$(A$,2,1) = “Z” THEN 1920 
1910 V = VAL(MID$(A$,3,2)) + 1:IF V < 1 0 
THEN MID$(A$,3,2) = STR$(V) ELSE 
MID$(A$,3,2) = MID$(STR$(V),2,2) 
1920 IF MID$(A$,5,1) = “Z” THEN 1940 
1930 V = VAL(MID$(A$,6,2)) + 1:IF V < 1 0 
THEN MID$(A$,6,2) = STR$(V) ELSE 
MID$(A$,6,2) = MID$(STR$(V),2,2) 
1940 D$(S1,I) =A$:NEXT 
1950 IF C2> RX THEN RX = C2 
1960 GOTO 2080 
1970 IF DC = 1 THEN 2030 


1980 IF C2 <>CR THEN 2090 
1990 FOR l = CC + 1 TO Cl 
2000 D$(I,CR) = D$(I — 1,CR): 

NEXT 

2010 IF Cl > CX THEN CX = Cl 
2020 GOTO 2080 
2030IFC1oCC THEN 2090 
2040 FOR l = CR + 1 TO C2 
2050 D$(CC,I) = D$(CC,I — 1): 

NEXT 

2060 IF C2> RX THEN RX = C2 
2070 GOTO 2080 
2080 MO = 1 :GOSUB70:RETURN 
2090 PRINT@448, “error IN 

DESTINATION”:SOUND1,5:FORD = 1 
TO500:NEXTD 
2100 GOTO 2080 
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SOLIDS 


Here is a handy technique that lets 
you turn a simple outline into a 
three-dimensional shape. Use it to 
design anything from a set of 
cocktail glasses to a top hat 

OF ROTATION 

—f) 



You can draw up to 20 lines in the outline. 
This is usually more than enough and most 
shapes can be drawn with about half a dozen 
lines. However, curves in the outline have to 
be made up from a series of short straight 
lines and this will take up more lines than a 
simple angular shape. 


A POINT OF VIEW 


The program also gives you control over the 
direction from which you look at the object — 
not only from above, below, or straight on, 
but from anywhere else as you can specify the 
exact angle of view (an angle of about 70 
gives a good view from above, as though you 


Drawing symmetrical objects, especially in 
three dimensions, is normally very tricky. But 
a computer can make light work of the task. 
With this program all you have to do is draw 
the outline of one side of the shape, and the 
computer draws the rest for you, filling in the 
shape to create a wire-frame solid-looking 
object. 

The program works by rotating your 
original outline about a central axis. So you 
can create anything with a circular cross- 
section — such as a vase or bowl, a glass, a 
candlestick or bell, a top hat, an apple or 
orange, or a thousand other things. Because 
the program routes your original line, the 
solid shape produced is called a solid of 
rotation. The program also lets you view the 
object from any angle, and as an extra bonus 
(except with the Commodore) it introduces 
some animation into the picture by spinning 
the object about its axis. 


DRAWING THE SHAPE 


Drawing the outline of your shape is very 
easy — the program uses the rubber-banding 
technique, where you can stretch and move a 
line about until you're happy with its pos- 
ition. Rubber-banding allows interactive con- 
trol over the shape you're drawing, letting 
you see by eye when each line is in the right 
place. (See pages 998 to 1003 for more 
information on rubber-banding.'i 



were looking at the object on a table). You can 
change the angle at any time and the program 
redraws the solid of rotation with the new 
orientation. 

The program stores the coordinates of all 
your lines. When you have finished drawing it 
takes each line in turn and rotates it about the 
centre point in steps of 18 degrees — giving 20 
steps around the whole circle. The angle of 
view is also taken into account and the circle 
appears more and more flattened as the view- 
point gets lower. The finished effect can be 
seen in the screen pictures and drawings on 
the following pages. 

Once the first view has been drawn the 
program waits. If you press the space bar or 


the space key then you can choose to view the 
same shape from a different angle. 


ADDING SOME SPIN 


On all but the Commodore you can also see 
the object spin by pressing one of the other 
keys. To make the shape spin, the program 
first saves the picture in memory using paged 
graphics techniques (see pages 1024 to 1029) 
and 1 132 to 1 137). The solid is then redrawn 
slightly differently as though it had been 
rotated a few degrees. This page is then saved| 
as well and the procedure is repeated several 
times. Once all the pages have been drawn and 
saved in memory they are called back and 
displayed one after the other, making the 
object appear to rotate. 

The reason the Commodore program 
doesn't do this is because, when using paged 
graphics, the amount of screen that can be 
used is rather small and, given the screen's 
limited resolution, the lines making up the 
object would tend to blur together too much 
to be visible. By dispensing with the spinning 
effect the object can be made much larger and 
so clearer. 


USING THE PROGRAM 


Enter the program now and try drawing some 
shapes. The procedure for drawing is to move © 
the cursor to the place you want a line to start 
at, then press an appropriate key to mark the ® 
starting point. Then move the cursor to 








■ 

THREE-DIMENSIONAL 

DRAWINGS 

■ 

CREATING SOME SHAPES 

■ 

DRAWING THE OUTLINE 

■ 

RUBBER-BANDING 


manipulate the ‘rubber-band’ line on the 
screen. When you’re happy with its position, 
and want to ‘fix’ it in place you press another 
key. Continue like this — moving and stretch- 
ing the rubber-band and fixing lines — to 
build up the profile. 

On the Spectrum use the cursor keys to 
move the c ursor; M to mark the starting 
position and [ENTER I to ‘fix’ each section of the 
profile. Press Q w’hen the design is complete 
to move on to the next stage, the running of 
the program. 

On the Commodore use the Z X ; and / 
keys to move the cursor. Use the <— symbol to 
mark the start position and I SPACE I to fix each 
line. Press I RETURN I when you’ve finished. 

On the Acorn, Z X P and L move the 
cursor and ISPACE [ fixes the line. The first time 
you press [SPACE | no line is drawn so use t his 
to mark the start position. Press IRETURN | to 
end. 

Finally, on the Dragon and T andy the 
arrow keys mo ve the c ursor, I ENTER I marks the 
start position, ISPACEI fixes a line and Y ends. 

When you draw the shape you can speed up 
moveme nt of the cu rsor by simultan eously 
pressing ICAPS SHIFT] on the Spectr um, ISHIFTl 
on the Commodore and Acorn, and ICLEAR | on 
the Dragon and Tandy. 



10 PRINT AT 0,10; INK 2; PAPER 5;“3D 
ROTATION”: PAUSE 100 

20 PAUSE 2500 

30 CLEAR 30000: PAPER 0: INK 5: CLS : 
POKE 23658,0 

40 GOSUB 2000: BORDER 0 

50 PRINT AT 0,0; PAPER 6; INK 

0;“O D □ □ DMOVE LINE = CURSOR 
KEYSD □ □ □ □ □(CAPSHIFT FOR 
DOUBLE SPEED MOVE)” 

60 PRINT : PRINT PAPER 6; INK 
0;“DDDDDFIX LINE = ENTER 
KEYDDDDDDD”'“DFIX 
CURSOR = MD □ DFINISH = QD □ 

70 INPUT “ENTER ANGLE OF VIEW 
(0-1 80)”;i: IF i <0 OR i >180 THEN 
GOTO 70 

80 PLOT 60,100: DRAW 135,0: DRAW 


■ ALTERING THE VIEWPOINT 

■ SPINNING THE SHAPE 

■ PAGED GRAPHICS 

■ ENTERING THE PROGRAM 

■ HOW IT WORKS 


90 LET is= SIN (i/180*PI) 

100 LET bf = 0: LET a$ = “” 

110 LET x = 1 28: LET y = 51 
120 LET xx = x: LET yy = y 
130 OVER 1 

140 PLOT x,y: DRAW xx — x,yy — y 
150 PLOT x,y: DRAW xx — x,yy-y 
160 LET z$ = INKEY$: IFz$ = “” THEN GOTO 
140 

170 LET z = CODE z$ 

180 IF z = 13 THEN GOSUB 500 
190 IF z = 1 1 3 THEN GOTO 600 
195 IF z = 109 AND bf< >1 THEN PLOT 
255 — x,y: LET x = xx: LET y = yy: LET 
bf = 1 

200 IF z = 53 AND xx > 1 28 THEN LET 
xx = xx — 1 

210 IF z = 8 AND xx > 130 THEN LET 
xx = xx — 2 

220 IF z = 55 AND yy < 1 00 THEN LET 
yy = yy+1 

230 IF z = 1 1 AND yy = 98 THEN LET 
yy = yy + 2 

240 IF z=56 AND xx < 1 95 THEN LET 
xx = xx + 1 

250 IF z = 9 AND xx < 1 94 THEN LET 
xx = xx 2 

260 IF z = 54 AND yy > 52 THEN LET 
yy = vv — i 

270 IF z = 1 0 AND yy > 51 THEN LET 
yy = yy — 2 
280 GOTO 140 

500 OVER 0: PLOT x,y: DRAW xx-x, 

yy-y 

510 PLOT 255 — x,y: DRAWx-xx, 
yy-y 

520 LET x = xx: LET y = yy: LET 
a$ = a$ + CHR$ (x-128) + CHR$ 

(y — 51): OVER 1: RETURN 
600 INK 7: CLS : OVER 0: DIM a(20,2) 

610 FOR a = 0 TO 7 
620 PRINT AT 21,3; PAPER 2; BRIGHT 
1 ;“DRAWING PICTURED ”;a + 1 ;“ nOUT 
OF 8” 

630 GOSUB 1000 
640 IF a < >0 THEN GOTO 670 
650 PRINT AT 20,0; INVERSE 1;“DSPACE 
KEY TO ALTER VIEW 

ANGLED”'“D □ LI ANY OTHER KEY TO 
CONTINUED 



GOTO 650 

662 IF X$< >“D” THEN GOTO 670 
664 INPUT “ENTER NEW ANGLE 
(0-1 80)”;i 

666 IF i<0 OR i> 180 THEN GOTO 662 
668 CLS: LET is = SIN (i/180*PI): 

GOTO 620 
670 GOSUB 1600 
680 CLS 
690 NEXT a 

700 PRINT AT 20,11; PAPER 7; INK 


0,-49: DRAW -135,0: DRAW 0,49 660 LET X$ = INKEY$: IF X$ = “” THEN 1;“DFRAME :D”; 




71 0 FOR a = 1 28 TO 240 STEP 1 6 T 

720 POKE 301 1 4,a: RANDOMIZE USR 30112 

730 PRINT AT 20,19;a/16 

740 NEXT a: GOTO 710 

1000 FOR b = 1 TOLEN a$ STEP 2 

1010 LET x = CODE a$(b) 

1020 LET y = CODE a$(b + 1) 

1030 GOSUB 1500 
1040 NEXT b 
1050 RETURN 

1500 FOR c = 0 TO 399 STEP 20 
1 51 0 LET d = c + (2.25'a):LET py = is’y 
1515 IF d> =360 THEN LET d = d 360 
1520 GOSUB 1530: NEXT c 
1525 DRAW bx - xd,by — yd: RETURN 
1530 LET yd = SIN {d/1 80*PI)‘x‘COS 
(i/180'PI) 

1532 LET xd = COS (d/180*PI)‘x 
1535 LET xd = 1 28 + xd: LET 
yd = 90 + yd + py 

1 540 IF c = 0 THEN PLOT xd,yd: LET bx = xd: 
LET by = yd 

1 550 DRAW xd - PEEK 23677,yd - PEEK 
23678 

1560 IF b = 1 AND bf = 1 THEN GOTO 1580 
1565 IF b = 1 THEN PLOT 128,90: DRAW 
xd — 1 28,yd — 90: GOTO 1580 
1570 PLOT a(1 + c/20,1 ),a(1 + c/20,2): DRAW 
xd — a(1 + c/20,1), yd -a(1 + c/20,2) 

1580 LET a(1 + c/20,1 ) = xd 
1585 LET a(1 + c/20,2) = yd 
1590 RETURN 

1600 POKE 30102,128 + a’16 
1610 RANDOMIZE USR 30100 
1620 RETURN 
2000 RESTORE 2050 
2010 FOR a = 0 TO 23 
2020 READ b: POKE a + 30100,b 
2030 NEXT a 
2040 RETURN 

2050 DATA 17,0,0,33,0,64,1,0,16,237,176, 

201 

2060 DATA 33,0,0,17,0,64,1,0,16,237,176, 

201 


T" T 





You will need a Simons’ Basic cartridge or 
INPUT'* hi-res graphics utility in order to 
RUN this program. 


10 HIRES 3,6:COLOUR 6,6:DIM A(19,1): 

POKE 650,128 
20 RD = ATN(1)/45 

40 BX = 141 :BY = 190:XX = BX:YY = BY: 

X = BX:Y = BY 
50REC 59,141,163,51,2 
60 LINE BX,BY,X,Y,2 

70 GET K$:CP = PEEK(197):IF K$ = “D” 
THEN GOSUB 500 

80 M = 2:IF PEEK(653) = 1 THEN M = 8 
90 LINE BX,BY,X,Y,2:IF K$ = “— ” AND 
A$ = “” THEN BX = X:BY = Y:BF = 1: 
GOSUB 500 

100 IF K$ = CHR$(13) AND LEN(A$)>0 
THEN 160 

110 IF CP = 50 AND Y M >142 THEN 

Y = Y- M 

120 IF CP = 55 AND Y + M<191 THEN 

Y = Y + M 

130 IF CP = 12 AND X — M>140 THEN 
X = X — M 

1 40 IF CP = 23 AND X + M < 220 THEN 
X = X + M 
150 GOTO 60 

160 GOSUB 2000: HIRES 0,0:MULTI 3,6,14: 
COLOUR 6,0 

170 GOSUB 1000:COLOUR 14,0 
190 GET K$:IFK$ = “D” THEN 160 
195 GOTO 190 
500 LINE BX,BY,X,Y,1 



510 LINE 281 BX,BY,281 — X,Y,1 

520 BX = X:BY = Y:A$ = A$ + CHR$ 

(X — 141) + CHR$(1 90 -Y): RETURN 
1000 FOR B = 1 TO LEN(A$) STEP 2 
1010 X = ASC(MID$(A$,B,1 )):Y = ASC(MID$ 
(A$,B + 1,1)) 

1020 GOSUB 1500: NEXT B 
1040 RETURN 

i 500 FOR C = 0 TO 399 STEP 20 
1510 D = C:PY = IS'(Y'.5) 

1520 GOSUB 1530: NEXT C:RETURN 
1530 YD = 100 SIN(D*RD)‘X‘COS(l‘RD) - 
PY:XD = 80 + COS(D‘RD)'X 
1540 IF C = 0 THEN BX = XD:BY = YD: 

XX = XD:YY = YD 

1550 LINE XX,YY,XD,YD,1 :XX = XD:YY = YD 
1560 IF B = 1 AND BF = 1 THEN 1580 
1565 IF B = 1 THEN LINE 80,91 ,XD,YD,2: 
GOTO 1580 

1570 LINE A(C/20,0),A(C/20,1),XD,YD,3 
1 580 XX = XD:YY = YD:A(C/20,0) = XD: 

A(C/20,1 ) = YD: RETIRN 
2000 NRM:I = 0:INPUT “^□ANGLE OF 
VIEW (0-180)”;! 

2010 IF l<0 OR I >180 THEN 2000 
2020 IS = SIN(I'RD):RETURN 




Note the changes below for the Electron. 

10 DIM A(1 9,1 ),X(20),Y(20) 

20 MODE1 :VDU23;8202;0;0;0; 

40 BX = 644: BY = 104:X = BX:Y = BY:N = 0 
50 PROCDRAW 
60 GOSUB2000:MODE4: 

VDU23;8202;0;0;0; 

70 HIMEM = &3000:?&34E = &30 
80 VDU23;6,16,0;0;0; 

90 A = 0:PROCSCREEN 
1 00 VDU 24,0;51 2;1 279;1 023;: FOR A = 3 TO 
0 STEP — 1 :CLG:GOSUB1000:IF A = 3 
THEN G = GET:IF G = 32 THEN A = 0: 
NEXT:MODE4:GOTO 60 
110 PROCSCREEN.NEXT 


1194 





120 FOR A = 0 TO 3:D = INKEY(10): 
PROCSCREEN:NEXT 

130 IF INKEY(I) = 32 THEN GOSUB 2000: 

GOTO 90 ELSE 120 
140 DEF PROCSCREEN 
145 -FX19 

1 50 X% = &6C - A'&l 4:?&351 = X%: 

?&350 = 0:X% = X%*32 
160 VDU 23;1 3,X%MOD256,0;0;0;23;1 2,X% 
DIV256,0;0;0; 

180 ENDPROC 
500 DEF PROCDRAW 

510 MOVE80,100:DRAW80,500:DRAW 1200, 
500:DRAW 1200,1 00: DRAW80,1 00 
520 GCOL3,3:IF N < >0 THEN MOVE 
BX,BY: DRAWX,Y □ ELSE PLOT69,X,Y 
530 IF INKEY( — 99) THEN PROCIN 
540 IF INKEY(-I) THEN M = 16 ELSE M = 4 
550 IF N < >0 THEN MOVE BX, BY: DRAW 
X,YDELSE PLOT69,X,Y 
560 IF INKEY( — 74) AND N>0 OR 
N = 20 THEN ENDPROC 
570 IF INKEY( — 87) AND Y-M>100 THEN 

Y = Y — M 

580 IF INKEY( - 56) AND Y + M < 500 THEN 

Y = Y + M 

590 IF INKEY( — 98) AND X-M>636 THEN 
X = X — M 

600 IF INKEY( — 67) AND X + M<1200 
THEN X = X + M 
610 GOTO 520 
620 DEF PROCIN 
630 IF N = 0 THEN 660 
640 GCOL0,3:MOVEBX,BY:DRAWX,Y 
650 MOVE1 280 - BX,BY:DRAW 1 280 — X,Y 
660 BX = X:BY = Y:X(N) = X — 640:Y(N) = 

Y — 100:N = N + 1 :REPEATUNTIL 
INKEY( -99) = 0:ENDPROC 

1000 FOR B = 0 TO N — 1 
1010 X = X(B):Y = Y(B) 

1020 GOSUB1500:NEXT 
1040 RETURN 

1500 FOR C = 0 TO 360 STEP 20 
1510 D = RAD(C + 5'A):PY = IS* Y 
1520 GOSUB 1530:NEXT:RETURN 
1530 YD = 700 + (SIND'X'COS(RAD(l)) + 
PY)/2:XD = 640 + (COSD'X)/2 
1540 IF C = 0 THEN MOVEXD,YD:BX = XD: 

BY = YD 


1550 DRAW XD,YD 

1560 IF B = 0 THEN MOVEXD,YD:GOTO 1580 
1570 MOVE A(C/20,0),A(C/20,1 ):DRAWXD, 

YD 

1 580 A(C/20,0) = XD:A(C/20,1 ) = YD: 

RETURN 

2000 CLS:*FX1 5,0 

2010 INPUT“ANGLE OF VIEW (0-180)D”,l 
2020 IFI < 0ORI > 180THEN2000 
2030 IS = SIN(RAD(I)):RETURN 

On the Electron, if you want to see the object 
spin, delete Lines 80 and 145 and then enter 
the following lines: 

30 PROCASS 

90 VDU 23;1 3,1 28,0;0;0;23;1 2,1 3,0;0;0;: 

?&351 =&6C:?&350 = 0 
120 FOR A = 1 TO 3:PROCSCREEN:NEXT 
1 50 X% = &6C - A’&l 4 
160 Y% = &6C 
170 CALL SWITCH 
180 ENDPROC 
200 DEF PROCASS 
210 DIM SWITCH 100 
220 FOR T=0 TO 2 STEP 2 
230 P% = SWITCH 
240 [OPT T 
250 STX &71 
260 STY &73 
270 LDX #20 
280 LDY #0 
290 STY &70 
300 STY &72 
310 ,L2 HILDA (&70),Y 
320 PHA 
330 LDA (&72),Y 
340 STA (&70),Y 
350 PLA 

360 STA (&72),Y 
370 INY 
380 BNE L2 
390 INC &71 
400 INC &73 



410 DEX 
420 BNE L2 
430 RTS 
440] NEXT 
450 ENDPROC 

T 

For the Tandy, change the 223 in Line 20 to 
247. 

10 PMODE2,1 :PCLEAR2:CLEAR200,7679: 
DIMA(1 9,1 ) 

20 RD = ATN(1 )/45:V = 223 
30 PCLS1 :SCREEN1,0 

40 BX = 1 28: BY = 1 90:DRAW“BM1 28,1 90”: 
X= BX:Y = BY 

50 LINE(31 ,1 91 ) - (255,1 40),PRESET,B 
60 LINE(BX,BY) — (X,Y), PRESET 
70 IFPEEK(345) = V GOSUB500 
80 IFPEEK(339) = 191THENM = 4 ELSEM = 1 
90 LINE(BX,BY) (X,Y),PSET: IF PEEK 
(338) = 191 AND A$ = “” THEN BX = X: 

BY = Y:BF = 1 :GOSUB500 
100 IFPEEK(339) = V ANDLEN(A$) >0 THEN 
160 

110 IFPEEK(341) = V ANDY — M >141 THEN 

Y = Y — M 

120 IFPEEK(342) = V ANDY + M < 191 THEN 

Y = Y + M 

130 IFPEEK(343) = V ANDX-M>127 THEN 
X = X — M 

140 IFPEEK(344) = V ANDX + M < 223 THEN 
X = X + M 
150 GOTO60 

1 60 GOSUB2000:SCREEN1,0:FORA = 0TO6: 

PCLSLFORG = 0TOA:PRESET(0,G‘2):NEXT 
170 GOSUB1000 
180 G$ = INKEY$ 

190 IF A = 0 AND G$ = “” THEN180 






The firt step is to draw in the outline of The computer then builds up the picture The finished design is a solid-looking 
your design a section at a time wireframe drawing 


200 IF A = 0 AND G$ = “D” THEN 160 1020 GOSUB1500:NEXT 

210 NEXT 1030 PC0PY1 T05 + A‘2:PC0PY2T06 + A'2 

220 FORA = 0TO6:PCOPY5 + A"2T01 : PCOPY 1040 RETURN 

6 + A*2T02:NEXT 1 500 FORC = 0TO360 STEP20 

230 IFINKEY$ = “D” THEN160 ELSE220 1510 D = C + 20 , A/7:PY = IS , Y 
500 LINE(BX, BY) — (X,Y), PRESET 1520 GOSUB1530:NEXT:RETURN 

510 LINE(255 — BX,BY) — (255 — X,Y), 1530 YD = 1 10 — SIN (D*RD)*X‘COS(l*RD) — 

PRESET PY:XD = 128 + C0S(D‘RD)'X 

520 BX = X:BY = Y:A$ = A$ + CHR$ 1 540 IFC = 0 THENLINE(XD,YD) - (XD,YD), 

(X — 128) + CHR$(190 — Y):RETURN PRESET:BX = XD:BY = YD 

1000 FORB = 1 T0LEN(A$) STEP2 1550 LINE — (XD,YD),PRESET 

1010 X = ASC(MID$(A$,B,1)):Y = ASC(MID$ 1560 IFB = 1 ANDBF = 1 THEN1580 ELSEIF 
(A$,B + 1,1)) B = 1 THENLINE(1 28,1 1 0) — (XD.YD), 


ft 


5 


$ 





PRESET:GOTO1580 

1 570 LINE(A(C/20,0),A(C/20,1 )) - (XD.YD), 
PRESET 

1 580 A(C/20,0) = XD:A(C/20,1 ) = YD: 
RETURN 

2000 CLS:INPUT“ L I ANGLE OF VIEW 
(0-180)1 l";l 

2010 IF I < 0OR I >180 THEN2000 
2020 IS = SIN(I'RD):RETURN 


HOW IT WORKS 


All the programs work in much the same way. 
The important parts are the routines that let 
you draw the outline, create the solid and 
cause it to spin. 


ENTERING YOUR PROFILE 


The rubber-banding routine starts at Line 
140 on the Spectrum, Line 60 on the Com- 
modore, Dragon and Tandy and PROCDRAW 
on the Acorns. This routine is mostly con- 
cerned with checking which keys have been 
pressed and updating the coordinates of the 
stretched line. The actual drawing of the line 
is done by the routine at Line 500, which also 
draws in the mirror image of the line. 

As each line is fixed, the coordinates of its 
end point are stored. First of all a number is 
subtracted from each coordinate in order to 
give a point measured relative to the centre 
line. Then, on all but the Acorn, the numbers 
are turned into a string and each is added on 
to the end of A$ (or a$). On the Acorn, the 
coordinates are stored in two arrays X() and 

Y(). 

The routine at Line 2000 (Line 70 on the 
Spectrum) lets you INPUT your angle of view; 
any angle between 0 and 180 degrees is 
accepted. The program now immediately 
jumps to the routine at Line 1000 which 
creates and draws the three-dimensional 
solid. 


THE THIRD DIMENSION 


This routine uses the stored coordinates of 
the lines you have drawn and the angle you 










INPUT to turn the outline 
into a solid-looking three- 
dimensional object. 

The maths used by the rou- 
tine is the same for each 
computer although the 
graphics commands to draw 
the lines are, of course, different. 

In Line 1000 a loop, controlled 
by the variable B, selects each of your 
lines in turn and strips off their finishing 
coordinates from A$ (or the two arrays on the 
Acorn). It then jumps to the next routine 
starting at Line 1500. 

This routine displaces these coordinates so 
they take into account the angle of view you 
selected, and then draws in the line using 
these displaced coordinates. This is repeated 
20 times, so your original line is drawn in 20 
different positions round a circle. The routine 
then RETURNS to Line 1000 to do the same for 
the next of your lines. By taking the lines one 
at a time the picture is built up in stages and 
you’ll see this when you RUN the program. 

If you look closely at the program you’ll see 
that the procedure for drawing the first of 
your lines is slightly different from that for 
the others. This is because the displaced 
coordinates it works out are always the ends of 
the lines, the start coordinates being the ends 
of the previous lines. However, with the first 
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line the start coordinates also have to be 
worked out. 

Lines 1 560 and 1 565 check to see if it is the 
first line. The Acorn program works slightly 
differently, but on all the others B = 1 means 
the first line, and if BF = 1 as well it means the 
first line was a blank move. With a blank 
move all that happens is the coordinates are 
worked out and then stored in the array A(). 
These coordinates will then form the start of 
the next set of lines. If the first move wasn’t 
blank it means it started from the centre, so 
‘spokes’ are drawn out from the centre to the 
end coordinates of the lines. The Acorn 
assumes your first move was blank and works 


out all the coordinates even when you start 
from the centre. 

So, for each line of your drawing, a whole 
ring of lines are drawn and their ends are 
linked by a circle, giving the effect of three 
dimensions. The coordinates of each end 
point are stored in the array A() so the 
computer knows the starting points for the 
next set of lines. 


ROTATE 


When the drawing is complete the program 
waits. Unless you have a Commodore, press- 
ing a key will then call the paged graphics 
routine that makes the drawing spin. Several 
pictures are drawn one after the other and 
saved in memory. The number of pictures A, 
is controlled by the loop in Lines 610 to 690 
on the Spectrum, Line 120 on the Acorn and 
Line 220 on the Dragon and Tandy. The 
variable A also determines the amount each 
picture is shifted by altering the angle in Line 
1510. The pictures are then displayed one 
after the other to give the effect of animation. 





MODELUN 

REALITY 


Choosing the winning combination 
in a chance event is like picking 
numbers at random— a prime task 
for your micro, given a little 
statistical know-how 


Engineers of all descriptions build models — 
structures in miniature — to test their designs. 
By doing so, they are simulating a real system. 
The article on pages 1 158 to 1 162 shows how 
your micro can do something similar — go 
through the motions of an event and give 
results that resemble those of an actual occur- 
rence. Now you can find out how to combine 
the principles of statistics and modelling to 
solve problems realistically in games and real- 
life situations. 


TYPES OF MODEL 


Technically, a model is a representation of a 
real system, constructed for its simplicity and 
usefulness as an aid to making decisions. 
There are three categories of models — iconic, 
analogue and symbolic— not all of which are 
practicable for simulations by home computer 
enthusiasts. 

Iconic models have no moving parts — road 
maps and toy aeroplanes come into this 
category. In preparation for building a bridge 
across an estuary, for example, civil engineers 
might build a model of the bridge and area 
surrounding the estuary to study the effects of 
tide, flooding and wind on the structure. 
Although computers are employed to monitor 
these factors and analyse the results, the fact 
that you have to collect data from an actual 
trial means that there is no need for a 
simulation. 

Analogue models represent one quantity 
by another. For example, Professor Phillips, 
a British economist, arranged a number of 
cold-water tanks at different levels and used 
the flow of liquid between the tanks to 
represent the flow of cash in the UK 
economy. The same sort of thing can be done 
electronically, by representing different 
quantities by different voltages — but ana- 
logue computers, rather than the digital sy- 
stem used in home computers, are generally 
employed for this work. It is the third 
category — the symbolic or abstract model — 
that is of particular interest to anyone wishing 
to carry out simulations on a home computer. 


REAL-LIFE UNCERTAINTIES 


In the symbolic type of model, it is a 
mathematical formula that is used to repre- 


sent the real system. For instance, if you 
wished to study the distance (S) travelled by a 
car at constant speed (V) for a Time (T), then 
a suitable model would be S = V*T. This 
type of equation is called deterministic , 
because it gives no measure of uncertainty. It 
describes precisely the motion of the car for 
any set of values you specify. There are, 
however, many events that cannot be speci- 
fied without a degree of uncertainty. An 
example of these is in the program on pages 
694 to 700, which simulates the tossing of a 
coin. Models that describe imprecise events 
are called stochastic. Usually, these are the 
types of event for which simulations are 
required— particularly in games. 

Some variables can take only discrete 
values, such as 0, 1, 2, 3, . . . The number of 
goals in a football match, or the number of 
male children in a family, are in this category. 


When simulating random variables of this 
type, it is important to be able to recognize 
that many seemingly different processes do, 
in fact, have the same underlying structure. 

As an example, consider the coin tossing 
simulation mentioned earlier. This program 
could easily be modified to represent the 
random casts of dice or the number of goals 
scored in a penalty shoot-out. In all these 
circumstances, there are a number of inde- 
pendently repeated trials, the results of which 
can occur with definite probabilities. For 
example, a trial may consist of tossing a coin 
four times. The result of each trial can be four 
heads, three heads and a tail, two heads and 
two tails, three tails and a head or a com- 
plete set of four tails. And there is a defin- 
ite probability attached to each of these out- 
comes. Structures of this type, named Ber- 
noulli Processes, generate discrete random 
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variables that are Unsuitable for, say, the 
number of accidents occurring in a Grand 
Prix, the total number of telephone calls 
arriving in a half-hour period, or the number 
of lightning flashes recorded during an 
electric storm. In these instances, the events 
occur haphazardly during a period of time, of 
their own accord, and not as a result of 
repeated trials. Such structures are called 
Poisson Processes. Enter the first program, 
which lets you sample from any Poisson 
distribution you choose: 



10 BORDER 0:PAPER 0:INK 7:CLS 
20 POKE 23658,0 

40 PRINT AT 1,6;INVERSE 1;“D POISSON 
SIMULATION □ ”:PRINT: PRINT 
50 INPUT “WHAT IS YOUR MEAN 
VALUE D”;a 


70 INPUT “SAMPLE SIZED”;n 
80 FOR i = 1 TOn 
90 LET c = 0:LET t = 1 
100 LET s = EXP (-a) 

110 LET t = t'(RND‘1) 

120 IF t< =s THEN PRINTED □□□□□ 
□ ”;c,:G0T0 150 
130 LET c = c + 1 
140 GOTO 110 
150 NEXT i 

160 INPUT “□ ANOTHER SAMPLE 

(Y/N)?”;g$ 

170 IF g$ = “y” THEN GOTO 10 
180 STOP 

[EKH 

40 PRINT “aa > II d POISSON 
SIMULATION® H” 

50 PRINT“fc|WHAT IS YOUR MEAN 
VALUE”:INPUT A 
70 INPUT “aSAMPLE 
SIZE”;N 

80 FOR 1 = 1 TO N 
90 C = 0:T = 1 
100 S = EXP( — A) 

110 T=T*RND(1) 

120 IF T< =S THEN PRINT C,:G0T0 150 
1 30 C = C + 1 
140 GOTO 110 
150 NEXT LPRINT 

160 PRINT“ANOTHER SAMPLE (Y/N )?” 

170 GETG$:IF G$ = “Y” THEN RUN 
180 IF G$< >“N” THEN 170 
190 PRINT'D” 

B 

40 M0DE1 :PRINTTAB(1 2,3)“POISSON 
SIMULATION”" 

50 INPUT'WHAT IS YOUR MEAN VALUE”, A 
70 INPUT'“AND YOUR SAMPLE SIZE”,N 
80 FOR 1 = 1 TO N 
90 C = 0:T=1 
100 S = EXP( — A) 

110 T =T’RND(1) 

120 IF T < =S THEN PRINT C;:G0T0 150 
130 C = C + 1 
140 GOTO 110 
150 NEXT 

160 INPUT'“ANOTHER SAMPLE (Y/N)”,G$ 
170 IF G$ = “Y” THEN 40 
180 END 


E 


30 CLS 

40 PRINT@7, “poisson simulation”:PRINT: 
PRINT 

50 INPUT“WHAT IS YOUR MEAN VALUE ID”;A 
60 PRINT 

70 INPUT“SAMPLE SIZE[H”;N 
80 FOR 1 = 1 TON 
90 C = 0:T = 1 
100 S = EXP( — A) 

110 T = T*RND(0) 

120 IF T< =S THEN PRINTLEFT$(STR$(C) 

+ “□□□□□□ □”,8);:GOTO150 
130 C = C + 1 
140 GOTO110 
150 NEXT I 

160 PRINT:INPUT“ANOTHER SAMPLE 

(Y/N)D”;G$ 

170 IF G$ = “Y” THEN 30 
180 END 

When you RUN the program, you are 
prompted to enter a mean value (the math- 
ematical average) and the size of your sample 
(Lines 50 and 70). The main part of the 
program (Lines 80 to 150) uses an equation to 
generate the Poisson variables. The variable S 
is set (Line 1 00) to the value of e (a mathemat- 
ical constant) raised to the power A (the mean 
value you entered). Line 110 sets a random 
number between 0 and the value of T, and 
scales it according to the value of T. Line 120 
then compares S and T to decide whether a 
variable (C) is to be printed. 

Suppose, for example, you are designing a 
space game in which a battle cruiser has to 
pass through a meteorite storm. If the mean 
number of ‘hits’ in any one-minute period is 
two, and five separate one-minute simulations 
are required, the computer might print out 2, 
3, 2, 1, 0 for ‘hit’ statistics. Each item in the 
list will not differ much from 2 (the mean), 
and there are five items — the sample size. 

Could this same technique be used to 
simulate, say, the final scores in a football 
match? Clearly, you are dealing with a dis- 
crete variable, because the number of goals 
scored can take only whole-number values 0, 
1, 2, 3, and so on. Also, you are concerned 
with events that occur of their own accord 




over time — and not as a result of repeated 
trials. So this is indeed a case for which a 
Poisson Process is suitable. Now, besides the 
number of matches played, the only other 
piece of information you need is what value is 
to be used as mean goals scored. Here, it 
becomes necessary to go out into the real 
world and collect some data. The table below 
gives mean scores for home and away teams in 
the English First Division soccer league, 
between 1977 and 1983. 


First Division Goals 



Home 

Away 


goals 

goals 


per 

per 

Season 

match 

match 

77-78 

1.6039 

1.0606 

78-79 

1.5498 

1.0844 

79-80 

1.6925 

0.9481 

80-81 

1.6364 

1.0216 

81-82 

1.4545 

1.0844 

82-83 

1.7532 

0.9822 


On the basis of these figures, an inspired 
guess of 1 .7 for mean home scores and 1 .0 for 
mean away scores is reasonable. Dividing 
each value by two leads to mean half-time 
scores of 0.85 and 0.5. Construction of the 
program is now straightforward: 



20 DIM a$(25,10):DIM h$(25,10):DIM 
h(50):DIM a(50):DIM f(50):DIM g(50) 

30 BORDER 0:PAPER 0:INK 7:CLS 
50 PRINT AT 0,8; INVERSE 1; 

“□□FINAL SCORED □” 

70 INPUT “DHOW MANY MATCHES (1-25) 
?D”;n 

75 IF n < 1 OR n> 25 THEN GOTO 70 
80 FOR i = 1 TOn 
90 PRINT “MATCH”, i 
100 INPUT “HOME TEAM”;h$(i) 

110 INPUT “AWAY TEAM ”;a$(i) 

120 NEXT i 
130 PAUSE 400 
140 PRINT 

150 FOR i = 1 TO 2*n 
160 LET c = 0: LET t = 1 
170 LET s = EXP (-.85) 

180 LET t = t*(RND’1) 

190 IF t< =s THEN LET h(i) = c: GOTO 220 

200 LET c = c + 1 

210 GOTO 180 

220 NEXT i 

230 FOR i = 1 TO 2*n 

240 LET c = 0: LET t = 1 

250 LET s = EXP (-.5) 

260 LET t = t'(RND*1) 

270 IF t< = s THEN LET a(i) = c: GOTO 300 
280 LET c = c + 1 
290 GOTO 260 


300 NEXT i 
310 CLS 

320 PRINT TAB (7);“HALF-TIME SCORES”;" 

330 FOR i = 1 TOn 

340 PRINT h$(i);h(i);TAB 20; 

a$(i);a(i):PRINT 
350 NEXT i 

360 PRINT “PRESS ANY KEY TO CONTINUE” 
370 IF INKEY$ = “” THEN GOTO 370 
375 CLS 

380 PRINT TAB 12;“FINAL SCORE”" 

390 FOR i = 1 TOn 
400 LET f(i) = h(i) + h(n + i) 

410 LETg(i) = a(i) + a(i + n) 

420 PRINT h$(i);f(i);TAB 20; 

a$(i);g(i):PRINT430 NEXT i 
440 INPUT “ ANOYHER GO (y/n) ?D”;g$ 
450 IF g$ = “n” THEN GOTO 490 
460 INPUT “OSAME TEAMS (y/n)”;p$ 

470 IF p$ = “n” THEN GOTO 70 
480 GOTO 150 
490 STOP 

BE 

20 DIM A$(25),H$(25),H(50),A(50),FA(25), 
FH(25) 

50 PRINT “□H>|jaFINAL 
SCOREHH” 

70 PRINT “HOW MANY MATCH ES(1-25)”: 
INPUT N 

75 IF N < 1 OR N > 25 THEN GOTO 70 
80 FOR 1 = 1 TO N 
90 PRINT “ fl MATCH”,! 

100 INPUT “HOME TEAM”;H$(I) 

110 INPUT “AWAY TEAM”;A$(I): 

PRINT 
120 NEXT I 

130 FOR V = 1 TO 1000: NEXT V 
150 FOR 1 = 1 TO 2'N 
160 C = 0:T=1 
170 S = EXP{ — .85) 

180 T =T*RND(1) 

190 IF T< =S THEN H(I) = C: 

GOTO 220 
200 C = C + 1 
210 GOTO 180 
220 NEXT I 
230 FOR 1 = 1 TO 2*N 
240 C = 0:T = 1 
250 S = EXP( — .5) 

260 T=T*RND(1) 

270 IF T< =S THEN A(I) = C: 

GOTO 300 
280 C = C + 1 
290 GOTO 260 
300 NEXT I 

320 PRINT “□H>llflHALF-TIME 

SCORESHS” 

330 FOR 1 = 1 TO N 
340 PRINT H$(l);H(l):PRINT“fl”; 
A$(I);A(I):PRINT 


350 FOR D = 1 TO 200:NEXT'D,I 
360 PRINT “PRESS ANY KEY TO CONTINUE” 
370 GET X$:IF X$ = “” THEN 370 
380 PRINT “QH >|| fl FINAL 
SCOREMS” 

390 FOR 1 = 1 TO N 
400 FH(I) = H(I) + H(N + 1) 

410 FA(I) = A(I) + A(I + N) 

420 PRINT H$(l);FH(l):PRINT“a”;A$(l); 
FA(I):PRINT 

430 FORD = 1TO200:NEXT D,l 
440 PRINT “SANOTHER GO (Y/N)?” 

450 GETG$:IF G$ = “N” THEN 
PRINT“Q”:END 
455 IF G$< >“Y” THEN 450 
460 INPUT “QSAME TEAMS (Y/N)”;P$ 

470 IF P$ = “N” THEN RUN 
480 GOTO 150 


B 

20 DIM A$(25),H$(25),H(50),A(50),FA(25), 
FH(25) 

50 MODE1 :PRINTTAB(1 6,3)“FINAL SCORE” 
60 PRINT:PRINT 

70 INPUT“H0W MANY MATCHES (1-25)”, N 
75 IF N <1 OR N > 25 THEN 70 
80 FOR 1 = 1 TO N 
90 PRINT“MATCH”, I 
100 INPUT“HOME TEAM”,H$(I) 

110 INPUT” AWAY TEAM”,A$(I): PRINT 






120 NEXT 

130 D = INKEY(1 00) 

140 PRINT 

150 FOR 1 = 1 TO 2*N 
160 C = 0:T = 1 
170 S = EXP( — .85) 

180 T =T*RND(1) 

190 IF T< =S THEN H(l) = C: 

GOTO 220 
200 C = C + 1 
210 GOTO 180 
220 NEXT 

230 FOR 1 = 1 TO 2*N 
240 C = 0:T = 1 
250 S = EXP( — .5) 

260 T = T'RND(1) 

270 IF T< =S THEN A(I) = C: 

GOTO 300 
280 C = C + 1 
290 GOTO 260 
300 NEXT 

320 CL$:PRINTTAB(12,3)“HALF-TIME 
SCORES”: PRINT:PRINT 
330 FOR 1 = 1 TO N 
340 PRINTH$(I) H (l)TAB(27)A$(l) A(l) 

350 NEXT 

360 PRINT“PRESS ANY KEY TO CONTINUE 
370 X$ = GET$ 

375 CLS 

380 PRINTTAB(16,3)“FINAL SCORE”: 


PRINT:PRINT 
390 FOR 1 = 1 TO N 
400 FH(I) = H(I) + H(N + 1) 

410 FA(I) = A(I) + A(I + N) 

420 PRINTH$(I)FH(I)TAB(27) 
A$(I)FA(I):PRINT 
430 NEXT 

440 INPUT“ANOTHER GO (Y/N)”,G$ 
450 IF G$ = “N” THEN END 
460 INPUT“SAME TEAMS (Y/N)”,P$ 
470 IF P$ = “N” THEN 70 
480 GOTO 150 


E2 


20 DIM A$(25),H$(25),H(50),A(50),FA(25), 
FH(25) 

30 CLS 

50 PRINT@11, “final score” 

60 PRINT:PRINT 

70 INPUT“HOW MANY MATCHES(1-25) □ 

N 

75 IF N < 1 OR N > 25 THEN 70 
80 FOR 1 = 1 TO N 
90 PRINT“MATCHD”;I 
100 INPUT“HOME TEAM □ ”;H$(I) 

110 INPUT" AWAY TEAMD”;A$(I): 

PRINT 
120 NEXT I 

130 FOR V = 1 TO 2000: NEXT V 
140 PRINT 


150 FOR 1 = 1 TO 2*N 
1 60 C = 0:T = 1 
170 S = EXP( — .85) 

180 T = T'RND(0) 

1 90 IF T < = S THEN H(l) = C: 

GOTO 220 
200 C = C + 1 
210 GOTO 180 
220 NEXT I 
230 FOR 1 = 1 TO 2*N 
240 C = 0:T = 1 
250 S = EXP( — .5) 

260 T = T'RND(0) 

270 IF T< =S THEN A(l) = C:GOTO 300 

280 C = C + 1 

290 GOTO 260 

300 NEXT I 

310 CLS 

320 PRINT@7, “half-time scores”: 

PRINT:PRINT 
330 FOR 1 = 1 TO N 
340 PRINTH$(I);H(I),A$(I);A(I) 

350 NEXT I 

360 PRINT“PRESS ANY KEY TO CONTINUE” 
370 IF INKEYS = “” THEN 370 
375 CLS 

380 PRINT@11, “final score”: 

PRINT:PRINT 
390 FOR 1 = 1 TO N 
400 FH(I) = H(I) + H(N + I) 

41 0 FA(I) = A(l) + A(N + 1) 

420 PRINTH$(I);FH(I),A$(I); 

FA(I) 

430 NEXT 

440 PRINT:INPUT“ANOTHER GO 

(Y/N)D”;G$ 

450 IF G$ = “N” THEN END 

460 INPUT“SAME TEAMS (Y/N)D”;P$ 

470 IF P$ = “N” THEN 70 
480 GOTO 150 

RUN the program and respond to the prompts 
of the first section (from start to Line 120). To 
avoid too much typing, you can input letters 
of the alphabet, instead of actual names, for 
both teams. Lines 150 to 300 use the Poisson 
algorithm, used in the first program, to 
generate half-match scores for the Home and 
Away sides. Lines 320 to 350 organize the 
printing of half-time scores and Lines 390 to 
430 the display of full-time results. 

Although the simulated individual goals 
per match won’t tally well with the actual 
results, the simulated aggregate performance 
should resemble the actual results closely. 

The Poisson distribution works well for 
whole-number variables, but some variables 
are fractional — they are continuously ran- 
dom. In a computer simulation of the 
Olympic long jump, for example, a competi- 
tor might record any distance between seven 
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example of a continuous random variable. 

Although the computer’s RND function is 
suitable for simulating Poisson-type whole- 
number variables, you need a modified RND 
function to model with continuous variables. 
Figure 1 compares the type of distribution 
given by both types of variables. Whole- 
number variables give a uniform distribution, 
but continuous variables can give either an 
exponential or a normal distribution. Enter the 
next program to transform the flat or uni- 
formly distributed random variables supplied 
by the computer’s RND function into ex- 
ponentially distributed random variables: 



10 BORDER 0: 1 NK 7PAPER 0:CLS 
20 POKE 23658,0 
40 PRINT AT 0,4; INVERSE 1; 
“□EXPONENTIAL SIMULATION 


50 INPUT “WHAT IS YOUR MEAN VALUE 

?□))* 

70 INPUT “DSAMPLE SIZE ?D”;n 
80 FOR i = 1 TOn 

90 LET x = (— a)'LN (RND*1):LET y = INT 
(x’10):PRINT “□□□□□ □"j.ry, 
100 NEXT i 

110 INPUT “DANOTHER SIMULATION 

(y/n)D”;g$ 

120 IF g$ = “y” THEN GOTO 30 
130 STOP 

(EE 

40 PRINT “□»> II A EXPONENTIAL”: 

PRINT || U ^SIMULATION □HH” 
50 PRINT “WHAT IS YOUR MEAN”:INPUT 
“VALUE”;A 

70 INPUT “HHSAMPLE SIZE”;N 
80 FOR 1 = 1 TO N 

90 X = ( — A)*L0G(RND{1 )):Y = INT(X*10): 

PRINT .1 *Y, 

100 NEXT I 

110 PRINT:PRINT “ANOTHER SAMPLE 

(Y/N)?” 

120 GETG$:IF G$ = “Y” THEN RUN 
130 IF G$< >“N” THEN 120 
140 PRINT“Q” 


40 M0DE1 :PRINTTAB(1 1 ,3)“EXP0NENTIAL 
SIMULATION” 

50 INPUT"“WHAT IS MEAN VALUE”,A 
70 INPUT"“SAMPLE SIZE”,N 
80 FOR 1 = 1 TO N 

90 X= — A*L0G(RND(1)):Y = INT(X*10): 

PRINT.TY; 

100 NEXT 

110 INPUT"“ANOTHER SIMULATION”, G$ 
120 IF G$ = “Y” THEN 40 


E2 


30 CLS 

40 PRINT@5, “exponential simulation”:PRINT: 
PRINT 

50 INPUT“WHAT IS YOUR MEAN VALUED”; 
A 

60 PRINT 

70 INPUT“SAMPLE SIZED”;N 
80 FOR 1 = 1 TO N 

90 X = ( — A)*LOG(RND(0)):Y = INT(X'10): 
PRINTLEFT$(STR$(Y/10) + “□ □ □ □ □ 
□ □”, 8 ); 

100 NEXT I 

110 PRINT:INPUT“ANOTHER SIMULATION 

(Y/N) □ ”;G$ 

120 IF G$ = “Y” THEN 30 
130 END 


When you RUN the program, specify a 
mean value and the number of samples re- 
quired, then the variables will be printed on 


the screen. Line 90 does all of the work. It 
uses a mathematical technique, called the 
inverse transform method, to translate ‘flat’ 
variables into exponential variables. This 
program could be used equally well to simu- 
late, say, the waiting time for driers in a 
launderette, or the lifetimes of energy packs in 
a space adventure game. Time elapsed is the 
important concept in both cases. 


NORMAL DISTRIBUTION 


The normal or bell-shaped curve represents 
the most famous statistical distribution of all. 
It has been found useful in describing all sorts 
of natural phenomena, including the heights 
and weights of adults. In addition, it is widely 
accepted as the most appropriate means of 
describing error distributions (see page 697). 

As an illustration of how the normal 
distribution might be incorporated into a 
model, consider the following example to 
design a business game. Suppose company 
sales (S) depend on some base level (So) and 
the amount spent on advertising (A). The 
relationship could be summarized by the 
expression S = S 0 + (B*A) where B is some 
known constant. 

Now in real life, such precise relationships 
rarely hold. Unforseen events or circum- 
stances distort the facts or introduce ‘noise’ 
into the system. This system can be adequ- 
ately modelled by introducing a normally 
distributed disturbance equation for sales. 
The complete equation for sales would then 
be S = S 0 + (B*A) + Normal Disturbance. 

Enter the next program to see this work: 



10 BORDER 0:PAPER 0:INK 7:CLS 
40 DIM u(50): DIM y(50):DIM z(50) 

50 PRINT AT 0,7;INVERSE 1;“DN0RMAL 
SIMULATIOND”" 

60 INPUT “DWHAT IS YOUR MEAN VALUE 

?D”;a 

70 INPUT “DWHAT IS YOUR MINIMUM 
VALUE ?D”;m 

80 INPUT “DSAMPLE SIZE ?D”;n 

90 LET b = (a — m)/2.5 

100 FOR i = 1 TOn 

110 LET t = 0 

120 FOR j = 1 TO 15 

130 LET y(j) = RND # 1 

140 LET t = t + y(j): NEXT j 

150 LET u(i) = ((t/1 5) — .5)/SQR (1/(12*15)) 

160 LET z(i) = a + (b*u(i)) 

170 LET p = INT (10*z(i)): PRINT 
“□ □ □ □ D”;.1*p, 

180 NEXT i 

190 INPUT “DANOTHER SAMPLE ?D”;g$ 
200 IF g$ = “y” THEN GOTO 50 
210 STOP 










BEKS 

40 DIM U ( 50),Y ( 50),Z( 50) 

50 PRINT “□H > UflNORMAL 
SIMULATIONHH” 

60 PRINT“WHAT IS YOUR MEAN”:INPUT 
“VALUE”;A 

70 PRINT“HWHAT IS YOUR MINIMUM”: 

INPUT“VALUE”;M 
80 INPUT “HSAMPLE SIZE”;N 
90 B = (A — M)/2.5 
100 FOR 1 = 1 TO N 
110 T = 0 

120 FOR J = 1 TO 15 
130 Y(J) = RND(1) 

140 T = T + Y(J):NEXT J 

150 U(l) = ((T/15)-.5)/SQR(1/(12*15)) 

160 Z(I) = A + (B'U(I)) 

170 P = INT(1 0*Z(l)): PRINT .TP, 

180 NEXT I 

190 PRINT:PRINT “ANOTHER SAMPLE 

(Y/N)?” 

200 GETG$:IF G$ = “Y” THEN RUN 
210 IF G$< >“N” THEN 200 
220 PRINT'D” 


40 DIM U(150),Y(150),Z(150) 

50 MODE1:PRINTTAB(12,3)“NORMAL 
SIMULATION”" 

60 INPUT“WHAT IS YOUR 
MEAN VALUE”, A 

70 INPUT“WHAT IS YOUR MINIMUM 
VALUE”, M 

80 INPUT“SAMPLE SIZE”,N 
90 B = (A — M)/2.5 
100 FOR 1 = 1 TON 
1 1 0 T= 0 

120 FOR J = 1 TO 15 
130 Y(J) = RND(1) 

140 T = T + Y(J):NEXT 
150 U(I) = ((T/15) — .5)/SQR 
(1/(12-15)) 

160 Z(I) = A + (B-U(I)) 

170 P = INT (1 0*Z(l)):PRINT 
TP; 

180 NEXT 

190 INPUT'-'ANOTHER 
SAMPLE”, G$ 

200 IF G$ = “Y” THEN 50 




30 CLS 

40 DIM U(50),Y(50),Z(50) 

50 PRINT@7, “normal simulation”: 
PRINT:PRINT 

60 INPUT“WHAT IS YOUR MEAN 
VALUE n”;A 

70 INPUT“WHAT IS YOUR MINIMUM 
VALUED”;M 

80 INPUT“SAMPLE SIZED”;N 
90 B = (A — M)/2.5 
100 FOR 1 = 1 TON 
110 T = 0 

120 FOR J = 1 TO 15 
130 Y(J) = RND(0) 

140T = T + Y(J):NEXT J 

150 U(l) = ((T/15)-.5)/SQR (1/(12*15)) 

160 Z(l) = A+ (B*U(I)) 

170 P = INT(10 # Z(I)):PRINTLEFT$(STR$ 

(p/i0)+“nnnnnnn ,, 5 8); 

180 NEXT I 

190 PRINT:INPUT“ANOTHER SAMPLED”;G$ 
200 IF G$ = “Y” THEN 50 
210 END 

RUN the simulation, then specify the mean 
and minimum values of your variable. Tech- 
nically, the range of the normal curve is 
unbounded, so there is a small chance that a 
simulated value will be less than the mini- 
mum you have specified. This won’t happen 
very often. 

Lines 120 to 150 use the RND function to 
generate 15 random numbers between 0 and 
1, and then add the numbers together. Line 
160 calculates the mean and adds a scaling 
factor. After further scaling (Line 160), the 
result can be printed. 

It may help you to get a better ‘feel’ for 
what’s going on if numbers are generated 
from two distributions with the same mean 
and roughly the same range, but with differ- 
ent shapes. Run this program and enter values 
of 100 for mean, 50 for minimum and 40 for 
sample size. The values you get could be 
plotted to give a graph that looks like figure 
1C. 

Now delete Line 90 and Lines 120 to 160, 
and overwrite the following line (change 
RND(1) to RND(0) on the Dragon and Tandy): 

110 Z(I) = M + RND(1)*2*(A — M) 

These changes convert the program into one 
capable of printing out uniform random 
values. Run the program again, entering the 
same values as before, and compare the 
results. This time, the values could be plotted 
to give a graph that looks like figure 1A. You 
should notice that the normal readings (in the 
first test) are much more closely clustered 
about the mean value of. 









No seaside scene would be complete without 
the plaintive gulls. But the game’s own sound 
effects— coming in later parts— precluded 
this. So instead the seagulls are just going to 
flap around in the sky over the slope as part of 
the background scenery. 

You might think that this is an unnecessary 
frill as it plays no real part in the game. But it 
is touches like this one that' make all the 
difference if you are writing a commercial 
game. The days of two cursors and a blip 
tennis games are over. 

Unfortunately, there are no flapping 
seagulls in the Dragon version of Cliffhanger. 
It would have burdened the game with even 
more DATA. Dragon owners have probably 
had all the DATA they can take. 

Besides, in the Dragon version, it is a very 
hot day, much too hot for sensible seagulls to 
be flapping about. They are all resting in the 
shade! 



The following program not only prints the 
gull up on the screen, it makes the gull flap its 
wings up and down by using simply two- 
frame animation. 


org 58751 

call print 

Id a, (57349) 

inc hi 

inc a 

call print 

res 3, a 

pop be 

Id (57349),a 

Id hi, 68 

Id be, 571 92 

call print 

cp 4 

inc hi 

jr c,gpt 

call print 

Id be, 57208 

ret 

Id a, 46 

org 58217 

Id hi, 42 

print * 

push be 



WINGING IT 


Memory location 57,349 contains the so- 
called gull delay variable. This stops the 
wings flapping up and down too fast. The full 
delay is loaded into A and incremented. 

To get the wings to flap up and down, the 
value of gull delay needs to fluctuate in a 
restricted range. Here the instruction res 3, a 
resets bit 3 of the accumulator. So when the 
gull variable is incremented beyond 7 it is set 
back to zero again. 

The result of the increment and reset is 
stored back in 57,349. 

To make the gull appear to be flapping its 


wings, there is data for two gulls — one with its 
wings up and one with its wings down. The 
two sets of data for these two gulls start at 
57,192 and 57,208. Each comprises 16 bytes 
of data. 

BC is loaded with the address of the first of 
these two blocks of data. Then the contents of 
the accumulator — which are still the gull 
delay— are compared with 4. 

A cp is an unstored subtraction. The 
number 4 is taken away from the contents of 
the accumulator, but the result is not stored in 
the accumulator — or anywhere else for that 
matter. The only result of the operation is to 
set the flags. 

So if the gull delay in the accumulator is 
less than 4 — that is, three or below— the carry 
flag is set. And if the gull delay is 4 or over, 
the carry flag is not set. 

The jr c instruction makes the processor 
jump if the carry flag is set. So if the gull delay 
is less than four, the processor skips the next 
instruction and 57,192 remains in the BC 
register. But if the gull delay is 4 or more, the 
carry flag is not set, the jump is not made and 
BC is loaded with 57,208, the beginning of 
the data for the second gull in the data table. 












DIRECTION CHECKING 


■ 

IDENTIFYING THE END 

OF THE FLIGHT PATH 

■ 

CHANGING DIRECTION 

■ 

FLIPPING IN THE FLAG 


The 'CLIFFHANGER' listings published in this 
magazine and subsequent parts bear absolutely no 
resemblance to, and are in no way associated with, 
the computer game called CLIFF HANGER' re 
leased for the Commodore 64 and published by 
New Generation Software Limited. 



TAKING FLIGHT 


A is loaded with 46, to set the gull colour, and 
HL is loaded with the position of the first gull 
on the screen, 42. 

The contents of the BC register is then 
pushed onto the stack to preserve it. To add to 
the confusion, there are two gulls on the 
screen as well as in the data table. But the two 
gulls on the screen are the same gull in the 
data table. The same image is printed on the 
screen twice, in two different places. As the 
same image is used, the gulls flap in concert. 
So the data pointer has to be preserved* while 
the first gull is being printed on the screen, as 
the print routine automatically updates the 
pointer while it prints out the sixteen bytes of 
data needed to make up a complete gull. 

The print routine is then called. This prints 
out the eight bytes of data following the start 
position given in BC, updating the contents of 
BC as it goes. HL is then incremented to 
move it onto the screen position immediately 
to the right of the part of the gull already 
printed up. Then the print routine is called 
again. 

When those two characters squares have 
been printed out, you have one complete gull. 


Then it is time to print the next one. So the 
data pointer is pulled off the stack, HL is 
moved onto the position of the second gull. 
Then the print routine is called again, HL is 
incremented and the print routine is called yet 
again to print up the second half of the second 
game. 



This little routine makes the gulls flap their 


wings: 


ORG 22096 

LDA #57 

LDX #0 

STA ($FB),Y 

LDY #0 

XX LDA ($FB),Y 

LOOP LDA $C350,X 

CLC 

STA $FB 

ADC #1 

LDA $C35A,X 

STA ($FB),Y 

STA $FC 

INX 

LDA ($FB),Y 

CPX #2 

CMP #61 

BNE LOOP 

BNEXX 

RTS 


There are two gulls on the screen, and four 
gulls in memory. The two gulls on the screen 
are really the same gull printed in different 
places. And the four gulls in memory are the 
same gull pictured with its wings in different 


positions. So when the four gull pictures are 
printed on the same place on the screen, one 
after another, you get the impression that the 
gull is flying. 


GULLING 


The X register is used to count the number of 
gulls on the screen and is initialized to 0. The 
Y register is used as the offset when indirect 
addressing is used later in the routine. But the 
offset is not used at this point and the contents 
of Y remain 0 throughout. 

The low byte of the screen position of the 
first gull is stored in the variable table in 
memory location $C350 and the high byte is 
in $C35A. And the low and the high byte of 
the screen position of the second gull are 
stored in $C351 and $C35B. These screen 
positions were worked out and stored in these' 
memory locations by the routine given in part 
seven of Cliffhanger (pages 1101 to 1105). 


P 







So the low byte of the screen position of the 
first gull is loaded into the accumulator and 
stored temporarily in the zero page location 
$FB where it can be manipulated easily. The 
high byte is stored at $FC. These two zero- 
page memory locations now act as a screen- 
position pointer. 

LDA ($FB),Y loads the accumulator with 
the contents of the memory location pointed 
to by the contents of $FB and $FC — in other 
words, it loads up the contents of that 
particular position on the screen. 

The four gulls are in memory in the form of 
UDGs. The data for these was entered as data 
in an earlier part of Cliffhanger. The gulls 
occupy UDGs 58 to 61 inclusively. 

So when the accumulator is loaded with the 
contents of the screen position of the first 
gull, it’s loaded with a number between 58 
and 61 — a gull with its wings in some position 
or other that has already been printed. 

The number loaded is compared to 61 . If it 
is not 61, the BNE instruction will skip over 
the next instructions which load up the 
accumulator with 57. This is 58 — 1 as the gull 
UDG to be incremented before it is printed 
on the screen. So if the gull UDG has already 
reached its maximum, 61, it is reset to 57 and 
passed back into the routine via the screen. 

The UDG number in the accumulator is 
now between 57 and 60. The carry flag is 
cleared and 1 is added to the contents of the 
accumulator. The UDG bearing the resulting 
number is stored back on the screen in the 


same position by the instruction STA ($FB),Y. 

So all this routine does is look at the gull on 
the screen and move it onto the next frame. 
And if it has reached the end of the four 
frames, it starts it off at the beginning again. 

The X gull-counter is then incremented 
and compared to 2. It is less than two, only the 
first gull has been moved onto the next frame, 
so the processor loops back and goes through 
exactly the same process with the second one. 
And if X has been clocked up to 2, the 
processor exits the routine. 



This program prints and moves two seagulls. 
In fact, these seagulls are much more am- 
bitious than those on the other machines. As 
well as flapping their wings, they fly about. 
Don’t forget to set up the computer as normal 
before you key it in. 


70 DATA5, 18,3,3, 
245,246,4 
80 F0RA% = &1 
C01TO&1C07: 
READ?A%:NEXT 
120 F0RPASS = 
0TO3STEP3 
130 P% = &1 C08 
140 [OPTPASS 
1 50 .Seagull 
160 JSRLbl 
170 LDA&85 
180 AND#&40 


190 BNELb6 
200 INC&85 
210 LDA&85 
220 AND#&3F 
230 CMP #23 
240 BNELb7 
250 LDA&85 
260 ORA#&40 
270 STA&85 
280 JMPLb7 
290 .Lb6 
300 DEC&85 
310 LDA&85 


320 AND#&3F 
330 CMP #0 
340 BNELb7 
350 LDA&85 
360 AND#&BF 
370 STA&85 
380 .Lb7 
390 LDA&86 
400 AND#&40 
410 BNELb8 
420 INC&86 
430 LDA&86 
440 AND#&3F 
450 CMP #30 
460 BNELb9 
470 LDA&86 
480 ORA#&40 
490 STA&86 
500 JMPLb9 
510 Lb8 
520 DEC&86 
530 LDA&86 
540 AND#&3F 
550 CMP# 10 
560 BNELb9 
570 LDA&86 
580 AND#&BF 
590 STA&86 
600 . Lb9 
610 LDA&85 
620 EOR # &80 
630 STA&85 
640 JSRLbl 
650 RTS 


660 .Lbl 
670 LDA&85 
680 AND #&80 
690 BNELb2 
700 LDY # 21 
710 JMPLb3 
720 .Lb2 
730 LDY #23 
740 Lb3 
750 LDX # 245 
760 TYA 
770 PHA 
780 JSR&17D4 
790 LDX #246 
800 PLA 
810 TAY 
820 I NY 
830 JSR&17D4 
840 LDY #48 
850 LDA&85 
860 AND#&3F 
870 TAX 
880 JSR&1964 
890 LDX#0 
900 . Lb4 
910 LDA&1 C01 ,X 
920 JSR&FFEE 
930 INX 
940 CPX#7 
950 BNE Lb4 
960 LDY #56 
970 LDA&86 
980 AND#&3F 
990 TAX 
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zero page locations that controls the gulls. If 
bit six is set the gull is moving to the left, and 
if it is not set the gull is moving to the right. 

AN Ding with &4 0 gives a 1 if bit six is set 
and a 0 if bit six is not set. Then the BNE 
instruction in Line 190 jumps to the routine 
which moves the gull to the left starting at 
Line 290 if the result is 1. Or the processor 
continues with the routine that moves the gull 
to the right if the result is 0. 


The routine that moves the gull to the right 
does that by simply incrementing the gull 
control variable in &85. This byte is then 
loaded into the accumulator and ANDed with 
&3F. This examines bits zero to five, to see 
whether the gull has reached the end of its 
path. The AN Ding clears bits six and seven, 
leaving the others unchanged. The result is 
compared to 23, which marks the extreme 
right-hand end of the gull’s flight. 

If the result has not clocked up to 23 yet, 
the gull has not got to the end of its path and it 
is not time to change direction. So the BNE 
instruction branches the processor over the 
next little routine. 

If the result has clocked up to 23, the gull 
has reached the end of its path, so the 
processor does not make the branch, 
contents of &85 are loaded into 
the accumulator, ORed with &40 to se 
bit six and the result is stored back 
in &85. 


Whichever way the gull is going the pro- 
cessor now jumps onto Lb7 in Line 380, to 
skip the routine that sends the gull to the left. 


If the branch in Line 190 had decided that the 
gull was flying to the left it would have sent 
the processor straight to the instruction in 
Line 290. 

The routine that moves the gull to the left 
works much like the one that moves it to the 
right. Only now, the control variable in &85 is 
decremented instead of being incremented. 

Again the result is ANDed with &3F so that 
bits zero to five can be examined. The 
left-hand-most end of the gull’s path is at 0. 
If the gull byte has clocked down that far the 
direction is reset by AN Ding the contents of 
&85 with &BF, which resets bit six and leaves 
the rest as they were. 


The second gull is handled in exactly the 
same way. The instruction from Line 390 
to Line 590 are exactly the same as 
those in Lines 170 to 370 which 


1000 JSR&1964 
1010 LDX#0 
1020 .Lb5 
1030 LDA&1C01,X 
1040 JSR&FFEE 


1050 INX 
1060 CPX#7 
1070 BNELb5 
1080 RTS 
1090] NEXT 


To make the gulls fly, you have to set some 
initialization values by POKEing a couple of 
the variables on the zero page. You do this by 
keying in the following instructions: 

?&85 = 0:?86 = 10 

Then, when you have the rest of the game in 
memory, key in: 

CALL &1B32:REPEAT CALL &1C08.FOR 
A% = 0 TO 500:NEXT:UNTIL 0 

This should send the feathers flying. 


LOWER THE FLAPS 


The DATA in Line 70 define the characters 
that make up the gulls and their colour. This 
is READ into a data table at &1C01 to &1C07 
where the machine code can find it. 

The first thing the assembly language 
routine does is jump to the subroutine at the 
label Lbl. This is the routine that does the 
printing on the screen. Here, it is called to 
print blank spaces over the old seagulls on the 
screen so that the new ones can be printed up 
without leaving bits of the old ones 
behind. Then the contents of &85 are 
loaded into the accumulator and ANDed with 
&40. This looks at bit six. &85 is one of the 


LEFT OVER 


GULL TWO 


ALL RIGHT 











move the first gull. 

The only difference is 
that the control byte is &86 
instead of &85. Otherwise, it moves the guF 
the left or the right and checks to see whether 
it has reached the end of its path in exactly the 
same way. 


THE FLAPS 


The flapping of the wings of both gulls are 
controlled by bit seven of &85. The contents 
of this control byte are loaded into the 
accumulator and Exclusively ORed with &80. 
This flips bit seven— if it was 1 bit become 0, 
if it was 0 it becomes one. There are two 
frames for each gull, one with its wings up and 
one with its wings down. Once one has been 
printed, the other has to be printed next time. 
And the easiest way to control this is to flip a 
bit. The result is stored back in &85. 

The processor then jumps to the subrout- 
ine which prints the new gull up. And when it 
comes back again, it returns. 



The gull print routine, which starts at Line 
870, begins by loading up the first gulls 
control byte and ANDs it with &80. This 
checks bit seven to see whether the wings 
should be up or down. 

The branch instruction in Line 690 then 
ither lets the processor move onto the next 
instruction which loads Y with 21, or skips 
that and loads Y with 23 which specifies the 
graphic number to be used. 

Whichever graphic is going to be used, the 
processor ends up at the instruction in Line 
750. LDX # 245 loads up the number of the 
character that is going to be redefined to make 
the gull flap its wings. 

The graphic number in Y is transferred 
into A, so that it can be preserved by pushing 
it onto the stack by the PHA instruction. 

The processor then jumps to the subrout- 
ine at &17D4 which is the routine which 
redefines a character. In this case, by redefin- 
ing 245, the left-hand side of the gull is 
redrawn. 

X is then loaded with 246. This is the 
number of the character used to form the 
right-hand side of the gull. The graphic 
number is then pulled off the stack, transfer- 
red back into the Y register and incremented. 
This moves the pointer onto graphics 22 and 


are going to be used to redefine the 
right-hand side of gull. The subroutine at 
&17D4 is called again, which redraws the 
right-hand side of the gull. 

Y is then loaded with 48 which is the Y 
coordinate of the first gull. The X coordinate 
is picked up from the first gulfs control byte 
in &85. It was put there— in bits zero to five— 
by the move routine above, remember. 

The X coordinate of the first gull is 
recovered by the contents of &85 into the 
accumulator, ANDing with &3F again and 
transferring the result into the X register. 

The processor then jumps to the subrout- 
ine at &1964, which moves the cursor into the 
appropriate position. X is then loaded with 0 
and the processor moves into the routine 
which actually prints the gull on the screen. 


GULLS 



LDA &1 C01 ,X loads up the first byte of the gull 
data table. The &FFEE routine is then called, 
which outputs the byte to the screen. X is 
incremented and compared with 7 and the 
processor branches back to output the next 
byte of data. Byte character numbers 245 and 
246— the characters for the left and right- 
hand sides of the gulls— appear in the data. 

Once all seven bytes of data have been 
output, the processor drops out of the loop. Y 
is then loaded with 56, the Y coordinate of the 
second gull. The X coordinate, again, is 
picked up from the control byte, in this case 
&86. Again, it has to be ANDed with &3F and 
transferred into the X register. 

The instructions in Lines 1000 to 1070 are 
exactly the same as those in Lines 880 to 950. 
They position the cursor and print out the 
data on the screen. And when all seven bytes 
of the gull data have been output in the second 
gull position, the processor returns. 









CUMULATIVE INDEX 


An interim index will be published each week. There will be a complete index in the last issue of INPUT. 


A 

Animation 

of solid drawings 

Acorn, Dragon, Spectrum, Tandy 

1192-1197 

of UDGs in cliffhanger 

992-997, 1204-1208 
using colour fill techniques 
Acorn 955-959 

using GCOL 3 

Acorn 999-1000 

using paged graphics 

1022-1027, 1132-1137 

Applications 

calendar and diary program 

1010-1016, 1017-1021, 1064-1067 
hobbies file, extra options 947-952 

magnification program 1081-1087 

spreadsheet program 

1118-1126, 1172-1176, 1184-1191 
text -editor program 

852-856, 878-883, 914-920 


B 

BASIC 

adding instructions to 

Acorn, Dragon, Spectrum 844-851 
Basic programming 
analyzing and storing sounds 1091-1095 
animation with paged graphics 


1022-1027, 1132-1137 
colour commands, Acorn 953-959 

Computer- Aided-Design 998-1004 
designing a new typeface 838-843 

drawing conic sections 859-863, 889-895 
how programs are stored 1 1 06-1 1 1 2 
mathematics of growth 1049-1056 

mechanics, principles of 933-939 

modelling reality 1193-1204 

multi-key control 974-979 

musical chords and harmonies 985-991 
patterns from nature 1 1 64- 1171 

prediction by computer 1 158-1 163 
programming function keys 825-829 
secret codes 960-965, 1044-1048 

solids of rotation 1 192-1 197 

sound envelopes 

Acorn, Commodore 64 1138-1 144 

speeding up BASIC programs 921-927 
Bernoulli processes, definition 1198 


c 

Calendar and diary program 

1010-1016, 1017-1021, 1064-1067 


Chords, musical 985-991 

Cliffhanger game 

part 1— title page 904-913 

part 2 — adding instructions 928-932 

part 3 — adding a tune 966-973 

part 4 — graphics and merging 992-997 

part 5 — setting the scene 1034-1043 

part 6 — perils and rewards 1057-1063 

part 7 — initializing routine 1 101-1 105 

part 8 — synchronizing routine 

11-27-1131 

part 9 — scoring routine 1145-1151 

part 10— adding seagulls 1204-1208 

Codes, secret 960-965, 1044-1048 

Colour 


filling in with 

Acorn 953-959 

in Teletext mode 

BBC 1068-1073 

routines for changing 

Commodore 64 872-877 

Conic sections 857-863, 889-895 


D 

Digital clock routine 896-898 

Dynamics, programs to 

illustrate 1164-1171 


E 

Envelope, 

of orbits 1164-1171 

sound 

Acorn, Commodore 64 

968-971, 1138-1144 
in musical harmony programs 986-991 


F 

Filling in with colour 

Acorn 953-959 

Football results program 1200-1201 

Fox and geese game 

1096-1100, 1113-1117, 1152-1157 
Freddy and the spider from Mars 
part 1— the graphics 1177-1183 

Fruit machine game 

1028-1033, 1074-1080 
Function keys, programming 
Acorn, Commodore 64, Vic 20 826-829 


G 

Games 

cliffhanger 904-913, 928-932, 966-973, 
992-997, 1034-1043, 1057-1063, 
1101-1105, 1127-1131, 1145-1151, 
1204-1208 

fox and geese 

1096-1100, 1113-1117, 1152-1157 
Freddy and the spider from Mars 

1177-1183 

fruit machine 1028-1033, 1074-1080 

goldmine 830-837, 864-871 

lunar touchdown 1088-1090 

magnification 1081-1087 

multi-key control for 974-979 

othello 980-984, 1005-1009 

wordgame 899-903, 940-945 

Goldmine game 830-837, 864-871 

Graphics 

colour commands, Acorn 953-959 

effects using curves 857-863, 889-895 
hi-res 

for custom typeface 838-843 

setting up new commands 

Commodore 64 872-877 


magnification program for 1081-1087 

paged, for animation 

1022-1027, 1132-1137 
patterns from nature 1 1 64-1 1 7 1 

picking and dragging 1000-1004 

rubber-banding 998-1000 

solids of rotation 1 192-1 197 

trace of sound 1092-1095 

using Teletext mode, BBC 1068-1073 

Growth, measuring 1049-1056 


H 

Hobbies file, extra options for 947-952 

I 

Instructions, adding to BASIC 
Acorn, Dragon, Spectrum 844-851 


K 

Keypresses, multiple, programming for 

974-979 


838-843 

1088-1090 


992-997 

872-877 
844-849 
896-898 
966-973 
1081-1087 

935 
1120 
923-924 

to assess population tendencies 

1170-1171 

to draw curves 857-863, 889-895 

to draw patterns from orbits 

1164-1170 

to measure growth 1049-1056 

Mechanics 

programs to show principles of 933-939 

Memory 

how BASIC programs are stored in 

1106-1112 

paged graphics in 1022-1027, 1132-1137 

Modelling reality 1198-1204 

Multi-key control, programming for 

974-979 

Music 

analyzing and storing 1091-1095 

chords and harmonies 985-991 

machine code routine for 966-973 


L 

Letter-generator program 
Lunar touchdown game 


M 

Machine code 

games programming 
see cliffhanger 
merging routines 
routines for hi-res graphics 
Commodore 64 
routine to alter BASIC 
timer routine 
tune routine 

Magnification program 
Mathematical functions 

in mechanics 
in spreadsheet program 
speedy use of 


generation program 1054-1056 

0 

Orbits, patterns from 1 164-1 171 

Othello board game 

980-984, 1005-1009 


P 

Paged graphics 1022-1027, 1 132-1 137 

Patterns from nature 1164-1171 

PLOT 

new commands, Acorn 953-959 

Poisson processes 1199 

Prediction by computer 

1158-1163, 1198-1203 


R 

RNDTunction 

in computing probability 

1160-1163, 1198-1203 
to transform distribution of 

variables 1202 

Robotics 884-888 


s 

Search routines 

binary and serial 924-927 

in text-editor program 914-920 

single pass 1162-1163 

Solids of rotation 1 1 92-1 1 97 

Sounds 

analyzing and storing 1091-1095 

envelopes for modifying 

Acorn, Commodore 64 1 138-1 144 


Speeding up BASIC programs 921-927 
Spreadsheet program 

1118-1126, 1172-1176, 1184-1191 


T 

Teletext mode, BBC 1068-1073 

Text -editor program 

part 1 — basic routines 852-856 

part 2 — editing facilities 878-883 

part 3 — sorting, searching, 

formatting and printout 914-920 

Three-dimensional drawing 1192-1197 

Timer routine 

for BASIC lines 922 

machine code 896-898 

Typeface, setting up new 838-843 


V 

Variables 

managing for program speed 923-925 
setting in machine code game 1127-1131 
storing in memory 1 1 06-1 1 1 2 


N 

Numbers 

Fibonacci 


W 

Wireframe drawing 1 192-1 197 

1056 Wordgame 899-903, 940-945 


The publishers accept no responsibility for unsolicited material sent for publication in INPUT. All tapes and 
written material should be accompanied by a stamped, self-addressed envelope. 



COMING IN ISSUE 39 ... I 



A MARSHALL CAVENDISH COMPUTER COURSE IN WEEKLY PARTS 


L] Complete the BASIC arcade game by 
adding animation to FREDDIE AND 
THE SPIDER FROM MARS 

LJ Put the squeeze on the DATA needed 
for your computer concerto with MUSIC 
COMPRESSION techniques 

O Use new COMPUTER MODELS to try 
your hand at simulating a real-life 
business situation — running a food stall 

CJ In CLIFFH ANGER, add in the routines 
which control the RISING TIDE that is 
threatening our hero 

CJPLUS,for COMMODORE users, more 
routines for your ASSEMBLER 

CJ Also in this issue, a comprehensive 
INDEX to parts 27-39 of INPUT 




